Trouver une valeur dans une selection (VBA)

[JGW]

Bonjour à tous,

J'ai besoin de votre aide pour trouver une valeur dans une selection.

Voici mon code:

ligne = ActiveCell.Row
colonne = ActiveCell.Column
Range(Cells(ligne, colonne), Cells(ligne, colonne).Offset(0, 1)).Select
Range(Selection, Selection.End(xlDown)).Select

Si cette plage ne contient pas le mot "nom", alors Range("A1").value= "N.A."
Sinon Range("A1").value=valeur de la cellule à droite (offset(0,1)) de celle où il y a marqué "nom".

PS: Dans tous les cas, si le mot "nom" est dans la selection, il sera dans la première colonne...


Merci de votre aide!

 

[JGW]

Re : Trouver une valeur dans une selection (VBA)

Est-il possible de dire cela:

With Selection
Set C = .Find("Nom")
If Not C Is Nothing Then
DerniereLigne = .Range("B65536").End(xlUp).Offset(1, 0).Row
.Cells(DerniereLigne, 2).Value = "N.A."
Do
DerniereLigne = .Range("B65536").End(xlUp).Offset(1, 0).Row
.Cells(DerniereLigne, 2).Value = cell.Offset(0, 1).Value
Loop While Not C Is Nothing And C.Address <> Adres1
End If
End With

Qu'est ce que cela va me proposer?

 

[JGW]

Re : Trouver une valeur dans une selection (VBA)

J'ai trouvé, voici une idée de la méthode:

Sub trouve()

Dim C As Range

With Selection
Set C = .Find("Nom")
If C Is Nothing Then
DerniereLigne = .Range("B65536").End(xlUp).Offset(1, 0).Row
.Cells(DerniereLigne, 2).Value = "N.A."
Else
DerniereLigne = .Range("B65536").End(xlUp).Offset(1, 0).Row
.Cells(DerniereLigne, 2).Value = cell.Offset(0, 1).Value
End If
End With

Bonne journée et bravo pour ce forum🙂