Syntaxe Range

Bonjour,

Je souhaite afficher le n° de la ligne où se trouve une valeur, le code fonctionne si j'utilise la syntaxe suivante :

lg = .Range("E6", Range("E6").End(xlDown)).Find(TextBoxDesignation).Row

mais j'aimerais utiliser une variable DerNuLg pour définir la fin de la plage de recherche.

Je bute sur la syntaxe au niveau du Range.

With Worksheets(NomFeuille) 
     DerNuLg = .Range("A6").End(xlDown).Row ' Renvoie le n° de la derniére ligne  
     Lg = .Range("E6:E" & DerNuLg).Find(TextBoxDesignation).Row 'Renvoie le n° de ligne ou se trouve une valeur de la Plage : E6 à la cellule n° DerNuLg
MsgBox (Lg & " n° ligne Valeur " & vbLf & DerNuLg & " n° ligne fin plage ")

                             End With

Pourriez-vous me dire aussi ce que veut dire "A5:A" & .Range("A" Dans le code ci-dessous :

.Range("A5:A" & .Range("A" & Rows.Count).End(xlUp).Row) 

Merci

Bonsoir

.. pour cela écrit le code suivant

Sub test
With Worksheets(NomFeuille) 

 msgbox .Rows.Count
 msgBox "A" & .Rows.Count
MSgbox ".Range(""A5:A"" & .Range(""A"" & Rows.Count & " )"
End With
End sub

et regarde l'affichage des 3 Message box

Bonjour Pierre,

Je te remercie pour ton aide,

Je viens de tester ton code et il bloque au niveau de la 3ieme MsgBox.

Dans mon programme j'ai besoin d'avoir les 2 variables n°de ligne (Lg) et dernière ligne vide ( DerNuLg )bien distinctes afin de les utiliser.

J'utilise les msgBox pour les vérifier.

Pourrais-tu m'expliquer ce que signifie " A5:A" et les A""

Cordialement

Pilougne

bonjour,

j'ai du me mélanger dans les guillemets :

il faut que tu décompose ton problème ... & et l'opérateur de concaténation de chaînes de caractères :

essai :

With ThisWorkBook.sheets(1)
msgbox  .rows.count
Msgbox "A"
MsgBox "A" & "1"
msgbox "Range(A" & "1"

Wend

quand tu auras compris à quoi sert & ... 

Bonjour,

Je te remercie pour ton aide au niveau de la syntaxe.

je ne comprends pas aussi ce que veut dire A5:A >>> Plage de toute la colonne A à partir de la Cellule A5 ?

Cordialement

et l'operateur & tu a compris a quoi il sert ? commence par le début...

Bonjour,

J'ai bien compris la fonction du &

Je suis désolé si je suis pas expert en Excel,

Cdlt

Bonsoir

et tu as essayé le dernier code que j'ai envoyé ..?

Bonjour,

J'ai bien essayé le code que tu m'a envoyé et j'ai compris la fonction du &.

Cdlt

Bonjour,

Si ça peut aider, voici la syntaxe qui fonctionne.

Sub Message()

With Worksheets("Feuil1")

DerNuLg = .Range("A6").End(xlDown).Row ' Renvoie le n° de la derniére ligne

Lg = .Range("A3" & ":A" & DerNuLg).Find("A25").Row ' Affiche le n° de ligne ou se trouve la valeur A25

MsgBox (Lg & " n° ligne Valeur " & vbLf & DerNuLg & " n° ligne fin plage ")

End With

End Sub

Cdlt