Chargement de variable

Bonjour

A partir d'une macro je dois tester plusieurs cellules de A4 à A34 et suivant le résultat du test j'aimerai connaitre le numéro de ma cellule ou mon test s'arrête

exemple si le test s'arrête à la cellule A20 j'aimerai charger en variable la valeur A20 comment puis-je faire ?

Salut,
Le ".address" te renverra l'info demandée.
Exemple:

Code:

---

1 2 3 4 5

Sub TestAdresse()   MsgBox ActiveCell.Address   End Sub

---

A+

Bonjour et merci pour l'aide,

Par contre peut-on faire la même chose ou avoir l'équivalent dans une boucle comme celle-ci:

Code:

---

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

Sub Gestion_de_Stock() For Each Cellule In Range("A4:A35")   If IsNumeric(Cellule.Value) = False Then   MsgBox "La plage contient une valeur non numérique."   'ICI JE SOUHAITERAI AFFICHER LE NUMERO DE LIGNE OU S4ARRETE MA 'BOUCLE AVEC LA COMMANDE SUIVANTE J'AI BIEN UN NUMERO DE LIGNE 'MAIS QUI NE CORRESPOND PAS A L'ARRET DE MON TEST   MsgBox ActiveCell.Address   Exit For End If Next End Sub

---

Bonjour
Suffit de remplacer

Code:

---

MsgBox ActiveCell.Address

---

c'est la cellule selectionnée

par

Code:

---

MsgBox Cellule.Address

---

c'est la cellule que tu es en train de tester dans ta boucle

Salt

C'est parfait par contre la MsgBox mais avec simplement le nom de la colonne
Et autre MsgBox avec le numéro de la ligne

c'est possible ou pas ?

Il faut utiliser les propriétés :

Code:

---

Cellule.Row

---

et

Code:

---

Cellule.Column

---

Merci c'est parfait mais je but sur un problème au niveau de ma boucle
j'aimerai insérer une ligne lorsque la ligne suivante n'est plus numérique et je pensai mettre en variable mon numéro de ligne et l'utiliser avec la commande suivante
Range("A10").Select mais ça ne fonctionne pas y a t-il un moyen d'utiliser des variables avec ces commandes???

Voici la description de mon fichier par ligne et colonne dans l'exemple suivant j'insère une ligne entre la ligne3 et la ligne4

Ligne 1 colonne A : 01
Ligne 1 colonne B : 10
Ligne 1 colonne C : 400

Ligne 2 colonne A : 05
Ligne 2 colonne B : 89
Ligne 2 colonne C : 49

Ligne 3 colonne A : 16
Ligne 3 colonne B : 209
Ligne 3 colonne C : 498

Ligne 4 colonne A : Total débit

Mon nouveau fichier après insertion :

Ligne 1 colonne A : 01
Ligne 1 colonne B : 10
Ligne 1 colonne C : 400

Ligne 2 colonne A : 05
Ligne 2 colonne B : 89
Ligne 2 colonne C : 49

Ligne 3 colonne A : 16
Ligne 3 colonne B : 209
Ligne 3 colonne C : 498

Ligne 4 colonne A : 20
Ligne 4 colonne B : 450
Ligne 4 colonne C : 300

Ligne 5 colonne A : Total débit

J'ai trouvé la solution a mon problème je vous joint la solution

Code:

---

1 2 3 4 5 6

Var2 = Cellule.Row MsgBox Day(Date)   Range("A" & Var2 & "").Select Selection.EntireRow.Insert ActiveCell.FormulaR1C1 = Day(Date)

---

Merci encore pour l'aide et Bon Week