Supprimer une ligne avec cellule de choix
Résolu
medbo
Messages postés
570
Statut
Membre
-
medbo Messages postés 570 Statut Membre -
medbo Messages postés 570 Statut Membre -
Bonjour,
je viens de me lancer en VBA Excel, et je ne trouve pas de solution à mon problème
je voudrai après avoir choisi une entrée dans un "combobox" supprimer la ligne auquelle appartient la cellule contenant le choix effectué dans "combobox"
Merci pour votre aide
je viens de me lancer en VBA Excel, et je ne trouve pas de solution à mon problème
je voudrai après avoir choisi une entrée dans un "combobox" supprimer la ligne auquelle appartient la cellule contenant le choix effectué dans "combobox"
Merci pour votre aide
A voir également:
- Supprimer une ligne avec cellule de choix
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page word - Guide
- Partage de photos en ligne - Guide
- Liste déroulante de choix excel - Guide
- Aller à la ligne dans une cellule excel - Guide
11 réponses
Salut,
essaie ceci (merci michel_m!!!)
valeur = ComboBox1
lig = Columns(1).Find(valeur, Range("A65536")).Row 'si ta valeur est en colonne A si en B : Columns(2) si en C : Columns(3) etc...
Rows(lig).Select
Selection.Delete Shift:=xlUp
essaie ceci (merci michel_m!!!)
valeur = ComboBox1
lig = Columns(1).Find(valeur, Range("A65536")).Row 'si ta valeur est en colonne A si en B : Columns(2) si en C : Columns(3) etc...
Rows(lig).Select
Selection.Delete Shift:=xlUp
medbo
Messages postés
570
Statut
Membre
29
Ça ne marche pas
la valeur choisi dans le combobox doit être rechérché dans la feuil Entrées puis supprimer la ligne correspondante, voici le code que j'ai rentré :
Private Sub UserForm_Click()
valeur = ComboBox1
lig = Worksheets("Entrées").Columns(1).Find(valeur, Range("A65536")).Row
Rows(lig).Select
Selection.Delete Shift:=xlUp
End Sub
dites moi où est l'erreur
Private Sub UserForm_Click()
valeur = ComboBox1
lig = Worksheets("Entrées").Columns(1).Find(valeur, Range("A65536")).Row
Rows(lig).Select
Selection.Delete Shift:=xlUp
End Sub
dites moi où est l'erreur
Salut,
Il n'y a pas d'erreur apparente.
Dans qu'elle colonne se trouve la valeur à rechercher?
Si c'est colonne A : lig = Worksheets("Entrées").Columns(1).Find(valeur, Range("A65536")).Row
colonne B : lig = Worksheets("Entrées").Columns(2).Find(valeur, Range("A65536")).Row
colonne C : lig = Worksheets("Entrées").Columns(3).Find(valeur, Range("A65536")).Row
et coetera...
Il n'y a pas d'erreur apparente.
Dans qu'elle colonne se trouve la valeur à rechercher?
Si c'est colonne A : lig = Worksheets("Entrées").Columns(1).Find(valeur, Range("A65536")).Row
colonne B : lig = Worksheets("Entrées").Columns(2).Find(valeur, Range("A65536")).Row
colonne C : lig = Worksheets("Entrées").Columns(3).Find(valeur, Range("A65536")).Row
et coetera...
Bonjour
pat'quoi pijaku ;o)
si colonne B
lig = Worksheets("Entrées").Columns(2).Find(valeur, Range("B65536")).Row
comme on est pas sûrs que la feuille active est la feuille "entées", pour ma part j'aurais écrit
With Worksheets("Entrées")
.rows(.Columns(2).Find(valeur, .Range("B65536")).Row ).delete
end with
ne pas oublier les points
mais je n'ai pas testé
pat'quoi pijaku ;o)
si colonne B
lig = Worksheets("Entrées").Columns(2).Find(valeur, Range("B65536")).Row
comme on est pas sûrs que la feuille active est la feuille "entées", pour ma part j'aurais écrit
With Worksheets("Entrées")
.rows(.Columns(2).Find(valeur, .Range("B65536")).Row ).delete
end with
ne pas oublier les points
mais je n'ai pas testé
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Fectivement ai oublié modifier Range ..... Range("B65536")).Row au lieu de Range("A65536")).Row
comme quoi 2 têtes valent mieux....
comme quoi 2 têtes valent mieux....
Ça me supprime la ligne voulue mais aussi toutes les lignes se trouvant après elle et ce n'est pas ce que je veux. je veux celement supprimer la ligne voulu et garder toute les autres lignes, celle en dessu et celle en dessou
vachement poli ce post 8 pour ceux qui essayent de t'aider
alors, dem... toi tout seul
--
alors, dem... toi tout seul
--
Je suis désolé pour cette réponse, j'avoue que ce n'est pas gentille de ma part de ne pas dire aumoins merci, mais c'est que je me tire les cheuveux avec VBA, je ne suis pas un programmeur et j'éssaie d'apprendre et ça m'enerve un peux car j'en ai besoin et ça urge. Voila pourquoi.
ce n'est pas mon intention d'être impoli.
encore désolé et merci beaucoup pour tout ceux qui m'ont aider et ceux qui essaient de m'aider.
ce n'est pas mon intention d'être impoli.
encore désolé et merci beaucoup pour tout ceux qui m'ont aider et ceux qui essaient de m'aider.
Salut,
Le code (donné par michel_m) : lig = Worksheets("Entrées").Columns(2).Find(valeur, Range("B65536")).Row te renvoie le numéro de la ligne ou figure la valeur recherchée. Ok?
Donc pour supprimer uniquement la ligne concerné, tu la sélectionnes :
row(lig).select (ou un truc dans le genre...)
et tu la supprime
selection.delete (ou un truc dans le genre...)
Le code (donné par michel_m) : lig = Worksheets("Entrées").Columns(2).Find(valeur, Range("B65536")).Row te renvoie le numéro de la ligne ou figure la valeur recherchée. Ok?
Donc pour supprimer uniquement la ligne concerné, tu la sélectionnes :
row(lig).select (ou un truc dans le genre...)
et tu la supprime
selection.delete (ou un truc dans le genre...)
bonjour,
directement
rows(lig).delete
(toujours éviter les select-selection inutiles, ralentisseurs et bouffeurs de mémoire...)
directement
rows(lig).delete
(toujours éviter les select-selection inutiles, ralentisseurs et bouffeurs de mémoire...)
