effacer ligne via un bouton avec chaine?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : effacer ligne via un bouton avec chaine?

laodice1

laodice

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

Publicité

Neji Hyuga

:grut:

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

---------------
Le Topic Unique des collections de cartes graphiques - GPUCHAN.ORG

laodice1

laodice

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

patrice33740

Avec la réponse, c'est facile.

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

---------------
Cordialement, Patrice

FORUM HardWare.fr

Programmation

VB/VBA/VBS

effacer ligne via un bouton avec chaine?

Sujets relatifs
Bouton pour cocher une case à cocher	Spliter tout les fichiers txt d'un dossier par ligne
Afficher un bouton "envoyer" après validation reCAPTCHA	Ajouter bouton Afficher Plus / Voir Plus Automatiquement
[SQL] Trouver une chaine dans une phrase	Exécution OK sous Eclipse, mais impossible en ligne de commande
Créer et gérer des EditText "à la chaine" [résolu]	Extraire un mot entre deuxvirgules dans une chaine
[Ada] Ecrire un programme de gestion de valeur en ligne de commande	Aide RegEx pour extraire une sous chaine entre crochet
Plus de sujets relatifs à : effacer ligne via un bouton avec chaine?

Page générée en 0.049 secondes