Changement de valeurs avec sélection et condition
freeycap
Messages postés
87
Date d'inscription
Statut
Membre
Dernière intervention
-
freeycap Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
freeycap Messages postés 87 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche à traduire en vba le cas suivant :
Sur la colonne A de ma feuil4, chaque ligne a une valeur (1, 2 ou 3...)
Sur ma feuil1, dans ma cellule B7, j'ai une valeur (1, 2 ou 3...) que l'on retrouvera sur plusieurs lignes de la colonne A feuil4.
Je cherche à inscrire une même valeur textuelle sur la colonne C de la feuil4 pour toutes les lignes dont la valeur de la colonne A est égale à la cellule B7 de ma feuil1.
Et si la valeur est différente de la cellule B7, alors je veux que la valeur textuelle change pour une autre valeur textuelle...
En fait, il y a des conditions, de la sélection avec condition, des changements de valeurs... bref... c'est vraiment trop avancé pour moi, je ne sais pas par ou commencer pour composer un code pour ca...
Merci pour votre aide..
Y
Je cherche à traduire en vba le cas suivant :
Sur la colonne A de ma feuil4, chaque ligne a une valeur (1, 2 ou 3...)
Sur ma feuil1, dans ma cellule B7, j'ai une valeur (1, 2 ou 3...) que l'on retrouvera sur plusieurs lignes de la colonne A feuil4.
Je cherche à inscrire une même valeur textuelle sur la colonne C de la feuil4 pour toutes les lignes dont la valeur de la colonne A est égale à la cellule B7 de ma feuil1.
Et si la valeur est différente de la cellule B7, alors je veux que la valeur textuelle change pour une autre valeur textuelle...
En fait, il y a des conditions, de la sélection avec condition, des changements de valeurs... bref... c'est vraiment trop avancé pour moi, je ne sais pas par ou commencer pour composer un code pour ca...
Merci pour votre aide..
Y
A voir également:
- Changement de valeurs avec sélection et condition
- Changer de dns - Guide
- Excel cellule couleur si condition texte - Guide
- Changement d'écriture facebook - Guide
- Changement d'heure - Guide
- Changement clavier azerty - Guide
2 réponses
Bonjour,
Si j'ai bien compris tes explications, cela pourrait ressembler à ce code
Si je n'ai pas compris n'hésites pas
bonne soirée
Si j'ai bien compris tes explications, cela pourrait ressembler à ce code
Dim valB7 As String, lig As Long
valB7 = Sheets("Feuil1").Range("B7").Value
With Sheets("Feuil4")
For lig = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(lig, "A").Value = valB7 Then
.Cells(lig, "C").Value = "bon"
Else
.Cells(lig, "C").Value = "pasbon"
End If
Next lig
End With
Si je n'ai pas compris n'hésites pas
bonne soirée