Formule If...

[flo_flo]

Bonjour tout le monde,

Voilà j'ai un petit problème avec la formule If que je maitrise pas trop (comme le reste de vba d'ailleurs).
Je vous explique mon souci : dans la colonne G, je renseigne les cellules. Je voudrais pouvoir dire: si la valeur de la cellule = "Changement de nom" alors va sur la meme ligne, colonne U et inscrit "OUI". Sinon, inscrit "NON".
J'ai écrit le code suivant mais il veut pas me le prendre :

Rows(ActiveSheet.UsedRange.Rows.Count).Select
ActiveCell.Offset(0, 6).Select
If ActiveCell.Value = "Changement de nom" Then ActiveCell.Offset(0, 20).Select
ActiveCell.Value = "OUI"
End If

Merci d'avance à tout le monde!!

 

[excalibur]

Re : Formule If...

bonjour flo_flo le forum peut etre comme cela pas teste
Rows(ActiveSheet.UsedRange.Rows.Count).Select
ActiveCell.Offset(0, 6).Select
If ActiveCell.Value = "Changement de nom" Then
ActiveCell.Offset(0, 14).Select
ActiveCell.Value = "OUI"
else
ActiveCell.Value = "non"
End If
salutations

 

[SergiO]

Re : Formule If...

Bonjour à tous,

Même résultat en + court :

Rows(ActiveSheet.UsedRange.Rows.Count).Select
If ActiveCell.Offset(0, 6).Value = "Changement de nom" Then
ActiveCell.Offset(0, 20).Value = "OUI"
End If

@+

 

[flo_flo]

Re : Formule If...

Merci les gars, ça marche bien. Par contre, j'ai encore un code à rajouter et je galère encore (oui je sais j'suis un boulet de vba🙂 )
Je voudrais faire:
Si la valeur de la cellule n'est pas "Changement de nom" alors va en colonne U de la meme ligne et inscrit NON
Pour l'instant, j'ai mis ça :
Rows(ActiveSheet.UsedRange.Rows.Count).Select
If ActiveCell.Offset(0, 6).Value = "Changement de nom" Then
ActiveCell.Offset(0, 20).Value = "OUI"
Else
ActiveCell.Offset(0, 6).Select
If NotActiveCell.Value = "Changement de nom" Then
ActiveCell.Offset(0, 20).Select
ActiveCell.Value = "non"
End If

Et il me marque "Erreur de Compilation: Bloc If sans End If"

Merci encore

 

[SergiO]

Re : Formule If...

Re,

Essaie comme ceci :

Rows(ActiveSheet.UsedRange.Rows.Count).Select
If ActiveCell.Offset(0, 6).Value = "Changement de nom" Then
ActiveCell.Offset(0, 20).Value = "OUI"
Else
ActiveCell.Offset(0, 20).Value = "NON"
End If

@+

 

[flo_flo]

Re : Formule If...

ça marche nickel merci bcp
a+

 

[flo_flo]

Re : Formule If...

Bon j'ai encore un souci, c'était trop beau pour être vrai
Alors, en fait j'ai créé un UserForm avec des ComboBox.
J'en ai trois à la suite qui comporte la même liste déroulante (exemples: changement de nom; autre modif; coordonnée...)
Les valeurs se mettent ensuite ds mon tableau en colonne G, H et I.
ET donc selon les valeurs choisies, je voudrais que soit inscrit OUI et NON.
Si dans une des 3 colonnes, il ya "changement de nom" ou "autre modif" alors OUI; sinon NON
Je suis pas sûr d'avoir été très clair.

Merci d'avance encore

 

[SergiO]

Re : Formule If...

Re,

Voici un code que tu peux tester :

Sub test()
Dim R, Txt1, Txt2
Dim i As Integer
Rows(ActiveSheet.UsedRange.Rows.Count).Select
R = ActiveCell.Row
Txt1 = "Changement de nom"
Txt2 = "Autre modif"
For i = 7 To 9 Step 1

    If Cells(R, i).Value = Txt1 Or _
    Cells(R, i).Value = Txt2 Then
    Cells(R, 21).Value = "OUI"
    End If
Next i

If Not Cells(R, 21).Value = "OUI" Then
Cells(R, 21).Value = "NON"
End If

End Sub

Bonne soirée

 

[flo_flo]

Re : Formule If...

ça marche parfaitement
merci encore
A+