Trouver une valeur dans une selection (VBA)

JGW · 12 Juin 2012

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 · 12 Juin 2012

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 · 12 Juin 2012

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🙂

Trouver une valeur dans une selection (VBA)

JGW

Guest

JGW

Guest

JGW

Guest

Discussions similaires

Trouver une valeur dans une selection (VBA)

JGW

Guest

JGW

Guest

JGW

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency