Aide sur la fonction si ou rechercheV

Vilain

XLDnaute Accro

• 10 Août 2011

• #2

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

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 10 Août 2011

• #3

Re : Aide sur la fonction si ou rechercheV

Bonjour pierrot5, Gillus69,

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

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

 

Vote positif 0 Vote négatif

P

pierrot5

Guest

• 10 Août 2011

• #4

Re : Aide sur la fonction si ou rechercheV

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

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 10 Août 2011

• #5

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 😉

 

Dernière édition: 10 Août 2011

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 10 Août 2011

• #6

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

 

Pièces jointes

• exemple(1).xlsm

  18.8 KB · Affichages: 59
• exemple(1).xlsm

  18.8 KB · Affichages: 64
• exemple(1).xlsm

  18.8 KB · Affichages: 56

Dernière édition: 10 Août 2011

Vote positif 0 Vote négatif

P

pierrot5

Guest

• 10 Août 2011

• #7

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 ??

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 10 Août 2011

• #8

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

 

Dernière édition: 10 Août 2011

Vote positif 0 Vote négatif

P

pierrot5

Guest

• 10 Août 2011

• #9

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 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Août 2011

• #10

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 :

Code:

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+

 

Vote positif 0 Vote négatif