Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1821 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  effacer ligne via un bouton avec chaine?

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

effacer ligne via un bouton avec chaine?

n°2372583
laodice1
laodice
Posté le 29-12-2020 à 18:53:02  profilanswer
 

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

mood
Publicité
Posté le 29-12-2020 à 18:53:02  profilanswer
 

n°2372584
Neji Hyuga
:grut:
Posté le 29-12-2020 à 19:24:18  profilanswer
 

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
n°2372614
laodice1
laodice
Posté le 30-12-2020 à 00:37:42  profilanswer
 

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

n°2372618
patrice337​40
Avec la réponse, c'est facile.
Posté le 30-12-2020 à 16:18:26  profilanswer
 

Bonjour,
 
Pour bien débuter :

Code :
  1. Option Explicit
  2. Sub test()
  3. Dim numero_ligne As Long
  4.  
  5.   numero_ligne = 5
  6.   Call effacerLigne(numero_ligne)
  7. End Sub
  8. Sub effacerLigne(n As Long)
  9. Dim f As Worksheet
  10. Dim r As Range
  11. Dim s As String
  12.  
  13.   Set f = Worksheets("Feuil1" )
  14.   Set r = f.Range(f.Cells(n, "B" ), f.Cells(n, "S" ))
  15.   s = "Etes-vous certain de vouloir supprimer le contenu de la ligne " & n & " ?"
  16.   If MsgBox(s, vbYesNo, "Demande de confirmation" ) = vbYes Then
  17.     r.ClearContents
  18.     MsgBox "Le contenu de la ligne " & n & " a été effacé !"
  19.   End If
  20. End Sub


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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  effacer ligne via un bouton avec chaine?

 

Sujets relatifs
Bouton pour cocher une case à cocherSpliter tout les fichiers txt d'un dossier par ligne
Afficher un bouton "envoyer" après validation reCAPTCHAAjouter bouton Afficher Plus / Voir Plus Automatiquement
[SQL] Trouver une chaine dans une phraseExé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 commandeAide RegEx pour extraire une sous chaine entre crochet
Plus de sujets relatifs à : effacer ligne via un bouton avec chaine?


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR