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 mettre au moins sur la voie ? Merci d'avance à tous
P.S. : Je suis obligé d'utiliser des variables pour désigner mes numéro de
ligne et de colonne car l'utilisateur peut aussi rajouter des lignes
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
papou
Bonjour Ta question devrait être posée sur microsoft.public.fr. Ceci étant, je te propose de modifier comme ceci (en adaptant avec le nom de ta feuille) Dim Nombre_de_lignes As Long Nombre_de_lignes = 10 With Worksheets("Feuil1").Range(Cells(2, 1), Cells(Nombre_de_lignes, 1)) Set x = .Find(what:=TextBox1, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows) If Not x Is Nothing Then Range(Cells(x.Row, 1), Cells(x.Row, 2)).ClearContents End With
Cordialement Pascal
"Furion" a écrit dans le message de 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 mettre au moins sur la voie ? Merci d'avance à tous P.S. : Je suis obligé d'utiliser des variables pour désigner mes numéro de ligne et de colonne car l'utilisateur peut aussi rajouter des lignes
Bonjour
Ta question devrait être posée sur microsoft.public.fr.
Ceci étant, je te propose de modifier comme ceci (en adaptant avec le nom de
ta feuille)
Dim Nombre_de_lignes As Long
Nombre_de_lignes = 10
With Worksheets("Feuil1").Range(Cells(2, 1), Cells(Nombre_de_lignes, 1))
Set x = .Find(what:=TextBox1, LookIn:=xlValues, lookat:=xlWhole,
searchorder:=xlByRows)
If Not x Is Nothing Then Range(Cells(x.Row, 1), Cells(x.Row,
2)).ClearContents
End With
Cordialement
Pascal
"Furion" <Furion@discussions.microsoft.com> a écrit dans le message de
news:93FA7024-3F90-4A87-97EB-AA76C3142B19@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 mettre au moins sur la voie ? Merci d'avance à tous
P.S. : Je suis obligé d'utiliser des variables pour désigner mes numéro de
ligne et de colonne car l'utilisateur peut aussi rajouter des lignes
Bonjour Ta question devrait être posée sur microsoft.public.fr. Ceci étant, je te propose de modifier comme ceci (en adaptant avec le nom de ta feuille) Dim Nombre_de_lignes As Long Nombre_de_lignes = 10 With Worksheets("Feuil1").Range(Cells(2, 1), Cells(Nombre_de_lignes, 1)) Set x = .Find(what:=TextBox1, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows) If Not x Is Nothing Then Range(Cells(x.Row, 1), Cells(x.Row, 2)).ClearContents End With
Cordialement Pascal
"Furion" a écrit dans le message de 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 mettre au moins sur la voie ? Merci d'avance à tous P.S. : Je suis obligé d'utiliser des variables pour désigner mes numéro de ligne et de colonne car l'utilisateur peut aussi rajouter des lignes
Furion
Merci beaucoup Papou !
J'ai pas encore compris comment marcher cette formule mais je vais vite l'essayer. Je sais pas à quoi je pourrais te servir mais si tu as besoin d'un coup de main, je suis là. Ciao et encore merci !
Merci beaucoup Papou !
J'ai pas encore compris comment marcher cette formule mais je vais vite
l'essayer. Je sais pas à quoi je pourrais te servir mais si tu as besoin d'un
coup de main, je suis là. Ciao et encore merci !
J'ai pas encore compris comment marcher cette formule mais je vais vite l'essayer. Je sais pas à quoi je pourrais te servir mais si tu as besoin d'un coup de main, je suis là. Ciao et encore merci !
