Discussion :

[AAWOOPY56]

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 ?

[Fvandermeulen]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub TestAdresse()
 
MsgBox ActiveCell.Address
 
End Sub

A+

[AAWOOPY56]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fgiambelluco]

Bonjour
Suffit de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ActiveCell.Address

c'est la cellule selectionnée

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Cellule.Address

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

[AAWOOPY56]

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 ?

[fgiambelluco]

Il faut utiliser les propriétés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cellule.Row

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cellule.Column