Utiliser variables d'une userform dans un module

Bonjour,
J'ai créé ce petit code pour pouvoir sélectionner une plage de ligne dans mes données qui m'intéresse et supprimer les autres. cela fonctionne pas mal.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim i As Interger Dim j As Interger   i = 63 j = 100 ActiveSheet.Name = "data"   Range("A" & j + 1).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp   Range("A11:GQ" & i - 1).Select Selection.Delete Shift:=xlUp

---

Mais maintenant je souhaiterais pouvoir déterminer les variables i et j avec une userform qui s'ouvrirait au début de l'exécution de la macro. Est-ce que vous pourriez m'aider ca fait 2 jours que je galère pour ce code de même pas 10 lignes.

Merci d'avance

Dahuhunter

Bonjour,

Je sais pas trop comment expliquer alors voilà un exemple qui devrait répondre à ta question

Module

Code:

---

1 2 3

Sub Macro1(i As Variant) Rows(i).Select End Sub

---

Bouton de commande d'un userform (ou autre)

Code:

---

1 2 3

Private Sub CommandButton1_Click() Application.Run "Macro1", 18 End Sub

---

i va prendre la valeur 18 définie au lancement de la macro

ok merci beaucoup j'ai compris le truc

Il est d'usage, ici, lorsqu'on a obtenu ou trouvé réponse à sa question, de cliquer sur le bouton :resolu:, en bas de discussion.

Merci.