Faire intervenir l'utilisateur
Résolu
Bonjour la communauté,
J'ai écrit cette petite macro afin de supprimer toutes les lignes dont les cellules de la colonne 7 est inférieure au 01/01/2017
Cependant j'aimerai que l'utilisateur puisse choisir la colonne à sa guise avec un message qui s'affiche et qu'il n'ai qu'a rentrer la valeur. Merci de bien vouloir me dire quoi faire et si possible m'expliquer pour que je puisse reproduire l'action.
je vous remercie pour votre aide.
Thyroox
J'ai écrit cette petite macro afin de supprimer toutes les lignes dont les cellules de la colonne 7 est inférieure au 01/01/2017
Sub PRIX()
'supprime les lignes lorsque la cellule fin de mission est inférieur au 01/01/2017
Dim lig As Long
For lig = [G65536].End(xlUp).Row To 2 Step -1
If Cells(lig, 7) < #1/1/2017# Then Rows(lig).Delete
Next lig
End Sub
Cependant j'aimerai que l'utilisateur puisse choisir la colonne à sa guise avec un message qui s'affiche et qu'il n'ai qu'a rentrer la valeur. Merci de bien vouloir me dire quoi faire et si possible m'expliquer pour que je puisse reproduire l'action.
je vous remercie pour votre aide.
Thyroox
2 réponses
-
Bonjour,
l'utilisateur puisse choisir la colonne à sa guise
Oui, par quel moyen....???
Chaque colonne a un format different ....?? -
Bonjour,
Avec La commande Inputbox,
Les colonnes ont toutes le Meme formalisme.
Merci de votre aide-
-
@f894009Re,
Sub PRESTAAA() 'supprime les lignes lorsque la cellule fin de mission est inférieur au 01/01/2017 Dim lig As Long Dim Nom As String For lig = [G65536].End(xlUp).Row To 2 Step -1 Nom = InputBox("Veuillez renseigner la colonne que vous souhaitez traiter", "Information") If Cells(lig, Nom) < #1/1/2017# Then Rows(lig).Delete Next lig End Sub
J'ai fait ce test mais j'ai ce message d'erreur : "erreur d'exécution 1004", erreur défini par l'application ou par l'objet'. -
@thyrooxAprès quelques recherches je me rends compte qu'il faut peut être utilisé un Userform ?
-
@thyrooxRe,
Oui et non, mais vous ne dites toujours pas comment cette userform va apparaitre, un clic quelque part ou ....... -
@f894009Re,
Lorsque l'utilisateur lancera la macro que j'ai transmis initialement, alors l'UserForm s'ouvrira, de ce fait l'utilisateur renseignera un numéro de colonne qui impactera alors cet élément : Cells(lig, 7)
Merci de votre aide :)
-
