Macro pour Ecrire à la même ligne

[Ibrahima84]

Bonjour,

Cela fait plus de deux semaines que je cherche à résoudre ce problème qui m'empêche de dormir.

Le voci:
Au fait je veux une macro qui cherche une chîne de caractère par exemple [T22] dans une cellule composé de plusieur autres mots si elle trouve le mot dans la cellule de la ligne "i" de la colonne 3 ("C:C"), alors on doit écrire à la cellule de la ligne "i" de la colonne 6 ("F:F").
Autrement dit:

Si la cellule(i, 3) contient "[T22]" alors
la cellule(i, 6) = Chat

Fin

Ce chaine de caractere se trouve dans plusieurs cellules de la colonne C
Et une fois que la dernièere ligne est atteinte on s'aarrête.

Je vous remercie d'avance de votre aide.

 

[mromain]

Re : Macro pour Ecrire à la même ligne

bonjour Ibrahima84,

à tester :

If InStr(Cells(i, 3).Text, "[T22]") > 0 Then Cells(i, 6) = "Chat"

a+

 

[Nekoty]

Re : Macro pour Ecrire à la même ligne

Bonjour Ibrahima84,

Je pense qu'un début de ce que tu souhaite serait le bienvenue par tout le fil.

 

[Ibrahima84]

Re : Macro pour Ecrire à la même ligne

Salut à tous
j'avais écri ce code For i = 3 To 50

If Cells.Find(What:="[T22]", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate Then

Cells(i, 16) = "FNS Knorr"

Il n'écrit pas le mot chat sur la même ligne!
je ne comprends pas pourquoi, c'est par ce que je suis un gros débutant.

Cordialement

 

[mromain]

Re : Macro pour Ecrire à la même ligne

re,

à tester (difficile de tester sans fichier et sans trop comprendre ce que la macro doit faire)

Dim cellFind As Range


For i = 1 To 50
    
    Set cellFind = Cells.Find(What:="[T22]", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False)
    
    If Not cellFind Is Nothing Then Cells(i, 16) = "FNS Knorr"

Next i

ou

Dim cellFind As Range


For i = 1 To 50
    
    Set cellFind = Cells.Find(What:="[T22]", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    True, SearchFormat:=False)
    
    If Not cellFind Is Nothing Then Cells(cellFind.Row, 16) = "FNS Knorr"

Next i

a+

 

[Ibrahima84]

Re : Macro pour Ecrire à la même ligne

Bonjour MRomain

Merci pour l'aide, pour une fois je vais dormir tranquil ce soir.

Merci, ça marche nikel.

Et à trés binetôt.

 

[eriiic]

Re : Macro pour Ecrire à la même ligne

Bonjour,

repère la dernière cellule remplie de ta colonne et ensuite balaye la :
Sub rempli()
For i = 1 To [C65536].End(xlUp).Row
If InStr(Cells(i, 3), "[T22]") > 0 Then Cells(i, 6) = "chat"
Next i
End Sub

eric

 

[Ibrahima84]

Re : Macro pour Ecrire à la même ligne

Bonjour,

Merci à Eric, Merci à MRomain, Merci à Nekoty, le problème est résolu pour le moment.

J'espère devenir un jour un dépanneur.