Recherche valeur variable
Bonjour,
je recherche une macro pouvant rechercher et sélectionner une valeur variable de prénommant "OF"
Particularité cette variable peut être présente plusieurs fois dans ma feuille Excel
Je souhaite sélectionner la dernière valeur
Par exemple OF = toto
toto étant présent en A28, C42, D3, je souhaite sélectionner la cellule D3
Merci pour votre aide.
Bonjour,
avec un fichier test et ce que tu veux obtenir et comment l'obtenir on comprendra sans doute mieux.
OF=Toto …. ok variable donc comment on indique que OF= toto ? si c'est directement dans ton code c'est plus vraiment une variable
car OF sera toujours = à toto
Ensuite D3 je souhaite selectionner ? de quelle manière ? c'est toi qui va sur D3 ou c'est justement un code que tu cherches pour
aller à D3 ?
Dans ce cas pour quelle raison excel irait à D3 plutôt que sur C42 ? il faut une condition
Ce n'est pas très clair
Bonjour,
je joint une partie de ma macro
Dim A As String
A = InputBox(prompt:="Quelle est la semaine ?", Title:="------------------------ Semaine ---------------------------")
Range("G1").Select
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value <> ""
OF_GPAO = ActiveCell.Value
OF = Left(OF_GPAO, 6)
sous_famille = ActiveCell.Offset(0, 9).Value
Data = ActiveCell.Offset(0, 14).Value
quantite = ActiveCell.Offset(0, 15).Value
Workbooks(nom_FICHIER_reseau).Activate
Worksheets(nom_onglet_1).Select
semaine = "S" & A
Dim recherche_OF As Range
Set recherche_OF = Cells.Find(What:=OF) ' ICI selectionne la premiere variable OF, je souhaite la variable OF la plus a droite dans mon fichier '
If recherche_OF Is Nothing Then
Cells.Find(What:=semaine).Select
COLONNE = ActiveCell.Column
Cells.Find(What:=sous_famille).Select
ActiveCell.Offset(0, COLONNE - 2).Activate
ActiveCell.Value = ActiveCell.Value + quantite
Cells.Find(What:=semaine).Select
ActiveCell.Offset(-1, 0).Activate
ActiveCell.Offset(54, 0).Activate
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = OF
ActiveCell.Offset(0, 3).Activate
ActiveCell.Value = CDate(Data)
ElseIf recherche_OF <> "" And recherche_OF.Offset(0, 3).Value = "" Then
Cells.Find(What:=semaine).Select
COLONNE = ActiveCell.Column
Cells.Find(What:=sous_famille).Select
ActiveCell.Offset(0, COLONNE - 2).Activate
ActiveCell.Value = ActiveCell.Value + quantite
recherche_OF.Activate
ActiveCell.Offset(0, 3).Activate
ActiveCell.Value = CDate(Data)
Else
Workbooks("lstReq").Activate
End If
Wend
ce que je souhaite c'est recherché et selectionné ma variable OF qui peut apparraitre plusieurs fois sur ma feuille.
Je veux selectionné "OF" dans la colonne la plus a droite.
Merci
Bonjour a tous,
j'ai réussi a me débrouiller
Merci a tous