effacer ligne via un bouton avec chaine?

Recherche :

Dernière réponse

Sujet : effacer ligne via un bouton avec chaine?

patrice33740

Bonjour,

Pour bien débuter :

Code :

Option Explicit
Sub test()
Dim numero_ligne As Long
numero_ligne = 5
Call effacerLigne(numero_ligne)
End Sub
Sub effacerLigne(n As Long)
Dim f As Worksheet
Dim r As Range
Dim s As String
Set f = Worksheets("Feuil1" )
Set r = f.Range(f.Cells(n, "B" ), f.Cells(n, "S" ))
s = "Etes-vous certain de vouloir supprimer le contenu de la ligne " & n & " ?"
If MsgBox(s, vbYesNo, "Demande de confirmation" ) = vbYes Then
r.ClearContents
MsgBox "Le contenu de la ligne " & n & " a été effacé !"
End If
End Sub

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

patrice33740

Bonjour,

Pour bien débuter :

Code :

Option Explicit
Sub test()
Dim numero_ligne As Long
numero_ligne = 5
Call effacerLigne(numero_ligne)
End Sub
Sub effacerLigne(n As Long)
Dim f As Worksheet
Dim r As Range
Dim s As String
Set f = Worksheets("Feuil1" )
Set r = f.Range(f.Cells(n, "B" ), f.Cells(n, "S" ))
s = "Etes-vous certain de vouloir supprimer le contenu de la ligne " & n & " ?"
If MsgBox(s, vbYesNo, "Demande de confirmation" ) = vbYes Then
r.ClearContents
MsgBox "Le contenu de la ligne " & n & " a été effacé !"
End If
End Sub

laodice1

J'avance lentement mais surement, voici ma saisie pour le moment sachant que j'aimerais mettre mes lignes en variable et pouvoir décaler la ligne a effacer en fonction du bouton qui s'y trouvera ( a chaque ligne se trouve un bouton "effacer".

'*************************
' effacer saisie de la ligne
'***************************
Sub supprimer()
'Déclaration de la variable
Dim var1_explicite As Integer

'Attribution d'une valeur à la variable
var1 = "B" + "5" + ":" + "s" + "5"
If MsgBox("Etes-vous certain de vouloir supprimer le contenu de la ligne ?", vbYesNo, "Demande de confirmation" ) = vbYes Then
Range(var1).ClearContents
MsgBox "Le contenu de la ligne a été effacé !"
End If

End Sub

Neji Hyuga

Ce sujet a été déplacé de la catégorie Hardware vers la categorie Programmation par Neji Hyuga

laodice1

Bonjour à tous,

je suis très débutante dans la vba. c'est un sujet qui m'intéresse beaucoup.
je me perfectionne tranquillement ...
je suis bloquée sur mon fichier excel,
j'ai réalisé cette formule pour effacer la saisie d'une ligne complète (B)ou sur la cellule du bout de la ligne j'ai positionné un bouton qui efface bien la ligne concernée
j'aurai souhaité reproduire le même cheminement sur les autres lignes si j'étire la série vers le bas (via une chaine ?) car le fichier se rempli via un formulaire de saisie.

merci beaucoup vraiment pour votre aide.

bonne fin de journée

cécile

'**************************
' effacer saisie de la ligne
'***************************
Sub supprimer()

If MsgBox("Etes-vous certain de vouloir supprimer le contenu de la ligne ?", vbYesNo, "Demande de confirmation" ) = vbYes Then
Range("B5:S5" ).ClearContents
MsgBox "Le contenu de la ligne a été effacé !"
End If