R
Robert
Guest
Bonjours à tous
Sujet:
Repérer un nombre en colonne R à partir de la ligne 6 si le nombre est trouvé, suppression de la ligne complète.
Débutant en VBA, je suis capable d'enregistrer une macro et créer une boite de dialogue, mais j'ai un sérieux manque de formation pour aboutir à celle-ci.
Mon besoin est le suivant:
La boite de dialogue est crée.
Dans celle-ci, l'utilisateur doit sélectionner un N° ( 0 , 1369 , 5520 et 5885 )
Le début de ma macro est le suivant:
Private Sub List_Approv_Chang()
Dim test As Integer
Test=List As Integer
Range("Y1")=test
UserForm1.Hide
If Range("Y1").Value<>""Then
Range("Y1").Value
Range("R6").Select
End If
End Sub
ENSUITE, ou je ne trouve pas la solution !
1 Contrôler si Rx=Y1 à partir de R6
2 Si Rx = Y1
3 Sélection de la ligne complète
4 Supprimer la ligne
5 Descendre d'une ligne
6 Aller sur Bx de cette ligne
7 Si Bx est renseigné
8 OUI
9 Se positionner en Rx de la même ligne
10 Refaire la boucle de 1 à 11
11 Rx<>Y1
Refaire la boucle de 5 à 11
Si Bx est vide
Revenir à A1
J'espère être claire dans ma demande et je vous remercie par avance si vous pouvez m'apporter une solution qui me rendrait un grand service
Merci à tous et à bientôt
Sujet:
Repérer un nombre en colonne R à partir de la ligne 6 si le nombre est trouvé, suppression de la ligne complète.
Débutant en VBA, je suis capable d'enregistrer une macro et créer une boite de dialogue, mais j'ai un sérieux manque de formation pour aboutir à celle-ci.
Mon besoin est le suivant:
La boite de dialogue est crée.
Dans celle-ci, l'utilisateur doit sélectionner un N° ( 0 , 1369 , 5520 et 5885 )
Le début de ma macro est le suivant:
Private Sub List_Approv_Chang()
Dim test As Integer
Test=List As Integer
Range("Y1")=test
UserForm1.Hide
If Range("Y1").Value<>""Then
Range("Y1").Value
Range("R6").Select
End If
End Sub
ENSUITE, ou je ne trouve pas la solution !
1 Contrôler si Rx=Y1 à partir de R6
2 Si Rx = Y1
3 Sélection de la ligne complète
4 Supprimer la ligne
5 Descendre d'une ligne
6 Aller sur Bx de cette ligne
7 Si Bx est renseigné
8 OUI
9 Se positionner en Rx de la même ligne
10 Refaire la boucle de 1 à 11
11 Rx<>Y1
Refaire la boucle de 5 à 11
Si Bx est vide
Revenir à A1
J'espère être claire dans ma demande et je vous remercie par avance si vous pouvez m'apporter une solution qui me rendrait un grand service
Merci à tous et à bientôt