Recherche Verticale et remplacement

[MaximeRoth]

Bonjour le forum,

Je souhaite faire quelque chose de très simple il me semble mais je n'arrive pas à comprendre ce que je ne fais pas bien

Je fais une petite macro me permettant de remplir la première cellule vide de la première (Usf Ajout) à l'identique sur tous les onglets du document. Cette partie fonctionne très bien. Cependant je souhaite également pouvoir modifier via un usf une cellule remplie et qu'elles soient alors toutes modifiées (sur tous les onglets). Sur mon usf modif j'ai dons une textbox pour l'ancien texte présent dans la cellule et une autre pour le nouveau. J'utilise ce code pour cibler la cellule à modifier :

Dim x As Range

With Sheets("Feuil1")
    Set x = Sheets("Feuil1").Cells.Find(Modif.TextBox1.Value, , xlValues, xlWhole, , , False)
    
If x Is Nothing Then
    MsgBox ("Ce projet n'existe pas")
Else
    Worksheets("Feuil1").Select
    Cells(1, x) = Modif.TextBox2.Value
    
End If

End With

Mais ça ne marche pas

Si quelqu'un peut me donner une solution et m'expliquer pourquoi ça ne marche pas je prend

Merci et bonne soirée.


A+
Max

 

[job75]

Re : Recherche Verticale et remplacement

Bonjour MaximeRoth,

x est une cellule (un Range), si vous voulez son numéro de colonne il faut le préciser :

Worksheets("Feuil1").Select
Cells(1, x.Column) = Modif.TextBox2.Value

ou mieux :

Sheets("Feuil1").Cells(1, x.Column) = Modif.TextBox2.Value

Les Select sont généralement inutiles en VBA.

A+

 

[MaximeRoth]

Re : Recherche Verticale et remplacement

En effet ça marche beaucoup mieux comma ça.
Merci bien et bon week-end.

A+
Max

 

[job75]

Re : Recherche Verticale et remplacement

Re,

En fait, si je comprends bien, les projets recherchés sont en ligne 1, donc écrivez tout bêtement :

Dim x As Range
Set x = Sheets("Feuil1").Rows(1).Find(TextBox1.Value, , xlValues, xlWhole)  
If x Is Nothing Then
  MsgBox ("Ce projet n'existe pas")
Else
  x = TextBox2.Value 
End If

A+