Après avoir passé une bonne partie de la nuit à résoudre mon problème, je
dois me résigner et vous le soumettre en espérant que qqun pourra m'aider.
J'ai un tableau comportant 2 colonnes. La 1ère contient un numéro
d'immatriculation et la seconde le type de la voiture correspondante.
Je veux qu'après avoir saisi le numéro d'immatriculation via un userform, la
ligne contenant le numéro désigné soit effacée. J'ai essayé ça mais ça marche
pas :
Numero_a_supprimer = Textbox1
Nombre_de_lignes = 10
For Compteur = 2 To Nombre_de_lignes
If Cells(compteur,1) = Numero_a_supprimer Then
Cells(compteur,1) = ""
Cells(compteur,2) = ""
End If
Next
Qqun pourrait me dire pourquoi ma macro ne marche pas ? Ai je oublie un
".value" ou qse chose comme ça ? Merci à tous ceux qui pourront me mettre sur
la voie
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
patrick
Bonjour,
j'ai essaye ton code sans textbox Numero_a_supprimer = 111 Nombre_de_lignes = 10 For compteur = 2 To Nombre_de_lignes If Cells(compteur, 1) = Numero_a_supprimer Then Cells(compteur, 1) = "" Cells(compteur, 2) = "" End If Next
ça marche. je rajouterai Numero_a_supprimer = textbox1.value
@+ patrick
"Furion" a écrit dans le message news:
Bonjour à tous !
Après avoir passé une bonne partie de la nuit à résoudre mon problème, je dois me résigner et vous le soumettre en espérant que qqun pourra m'aider.
J'ai un tableau comportant 2 colonnes. La 1ère contient un numéro d'immatriculation et la seconde le type de la voiture correspondante.
Je veux qu'après avoir saisi le numéro d'immatriculation via un userform, la
ligne contenant le numéro désigné soit effacée. J'ai essayé ça mais ça marche
pas :
Numero_a_supprimer = Textbox1 Nombre_de_lignes = 10 For Compteur = 2 To Nombre_de_lignes If Cells(compteur,1) = Numero_a_supprimer Then Cells(compteur,1) = "" Cells(compteur,2) = "" End If Next
Qqun pourrait me dire pourquoi ma macro ne marche pas ? Ai je oublie un ".value" ou qse chose comme ça ? Merci à tous ceux qui pourront me mettre sur
la voie
Bonjour,
j'ai essaye ton code sans textbox
Numero_a_supprimer = 111
Nombre_de_lignes = 10
For compteur = 2 To Nombre_de_lignes
If Cells(compteur, 1) = Numero_a_supprimer Then
Cells(compteur, 1) = ""
Cells(compteur, 2) = ""
End If
Next
ça marche.
je rajouterai
Numero_a_supprimer = textbox1.value
@+
patrick
"Furion" <Furion@discussions.microsoft.com> a écrit dans le message news:
50325FD0-32AA-4B63-B07F-2FCE48D0EA67@microsoft.com...
Bonjour à tous !
Après avoir passé une bonne partie de la nuit à résoudre mon problème, je
dois me résigner et vous le soumettre en espérant que qqun pourra m'aider.
J'ai un tableau comportant 2 colonnes. La 1ère contient un numéro
d'immatriculation et la seconde le type de la voiture correspondante.
Je veux qu'après avoir saisi le numéro d'immatriculation via un userform,
la
ligne contenant le numéro désigné soit effacée. J'ai essayé ça mais ça
marche
pas :
Numero_a_supprimer = Textbox1
Nombre_de_lignes = 10
For Compteur = 2 To Nombre_de_lignes
If Cells(compteur,1) = Numero_a_supprimer Then
Cells(compteur,1) = ""
Cells(compteur,2) = ""
End If
Next
Qqun pourrait me dire pourquoi ma macro ne marche pas ? Ai je oublie un
".value" ou qse chose comme ça ? Merci à tous ceux qui pourront me mettre
sur
j'ai essaye ton code sans textbox Numero_a_supprimer = 111 Nombre_de_lignes = 10 For compteur = 2 To Nombre_de_lignes If Cells(compteur, 1) = Numero_a_supprimer Then Cells(compteur, 1) = "" Cells(compteur, 2) = "" End If Next
ça marche. je rajouterai Numero_a_supprimer = textbox1.value
@+ patrick
"Furion" a écrit dans le message news:
Bonjour à tous !
Après avoir passé une bonne partie de la nuit à résoudre mon problème, je dois me résigner et vous le soumettre en espérant que qqun pourra m'aider.
J'ai un tableau comportant 2 colonnes. La 1ère contient un numéro d'immatriculation et la seconde le type de la voiture correspondante.
Je veux qu'après avoir saisi le numéro d'immatriculation via un userform, la
ligne contenant le numéro désigné soit effacée. J'ai essayé ça mais ça marche
pas :
Numero_a_supprimer = Textbox1 Nombre_de_lignes = 10 For Compteur = 2 To Nombre_de_lignes If Cells(compteur,1) = Numero_a_supprimer Then Cells(compteur,1) = "" Cells(compteur,2) = "" End If Next
Qqun pourrait me dire pourquoi ma macro ne marche pas ? Ai je oublie un ".value" ou qse chose comme ça ? Merci à tous ceux qui pourront me mettre sur
