Aide sur la fonction si ou rechercheV

[pierrot5]

Hello,

je voudrais faire :
dans une colonne A, il me trouve tout les champs "GW",
et à chaque fois qu'il trouve, qu'il me le remplace par le champ (de la même ligne) de la colonne C.

Ex : en A2, il trouve GW > le contenu de C2 va en A2

 

[Vilain]

Re : Aide sur la fonction si ou rechercheV

Salut !

Ton problème ne semble pas bien compliqué, mais un exemple aiderait grandement à la compréhension.

A plus

 

[mth]

Re : Aide sur la fonction si ou rechercheV

Bonjour pierrot5, Gillus69,

Si j'ai bien compris (?) Un essai avec ce code:

Sub remplace()
Dim c As Range
With Sheets("Feuil1")
    For Each c In .Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If c = "GW" Then
            c.Value = c.Offset(0, 2)
        End If
    Next c
End With
End Sub

mais bien d'accord avec Guillus69, un extrait de fichier comme base de travail est toujours plus aisé.

Bon après-midi à tous,

mth

 

[pierrot5]

Re : Aide sur la fonction si ou rechercheV

Post mis-à-jour, j'ai mis un exemple

 

[Vilain]

Re : Aide sur la fonction si ou rechercheV

Au vu de ton exemple, je passerai simplement par une colonne intermédiaire.
Ainsi, dans ton exemple, en C4 j'écrirai : =SI(B4="GW";D4;B4) puis copierai/collerai en valeur sur ta colonne initiale.

Qu'en penses tu ?

PS: Salut Mth, toujours dans les bon coups et toujours avec un bout de macro 😉

 

[mth]

Re : Aide sur la fonction si ou rechercheV

re bonjour à tous 🙂

Avec le code dans le fichier joint,

Bon après-midi,

mth

Edit: sourire .... bof, tu sais Guillus, les macros et moi, on n'est pas très bonnes copines 🙄
à bientôt 🙂
m

 

[pierrot5]

Re : Aide sur la fonction si ou rechercheV

yep merci à vous 2

juste pour info dans ton code pour que je comprenne:

If c = "GW" Then
c.Value = c.Offset(0, 2) => le (0, 2) correspond à prendre la valeur présente dans la même ligne et deux colonnes suivantes ??

 

[mth]

Re : Aide sur la fonction si ou rechercheV

re 🙂

oui c'est tout à fait ça 🙂

@ +

mth

Edit: 🙂 🙂 Bonjour job 🙂 🙂
Ravie de te croiser (et de lire tes "tablos" 🙂 )
@ + 🙂
m

 

[pierrot5]

Re : Aide sur la fonction si ou rechercheV

Ok merci pour le tuyau mth et Gillius

Vous avez été super rapide et ca fais plaisir 🙂

 

[job75]

Re : Aide sur la fonction si ou rechercheV

Bonjour pierrot5, Mireille, Gillus69,

Surtout pour le plaisir de croiser Mireille 🙂

Et pour apporter quelque chose au fil :

Sub Remplace_JOB75()
Dim derlig&, tablo1, tablo2, i&
derlig = [B65536].End(xlUp).Row
tablo1 = Application.Transpose(Range("B2:B" & derlig))
tablo2 = Application.Transpose(Range("D2:D" & derlig))
For i = 1 To UBound(tablo1)
  If tablo1(i) = "GW" Then tablo1(i) = tablo2(i)
Next
Range("B2:B" & derlig) = Application.Transpose(tablo1)
End Sub

Si le nombre de lignes est grand, la macro est beaucoup plus rapide en utilisant des tableaux.

A+

A+