Condition if

Bonjour à tous.

Malgré plusieurs recherche de mots cité je ne parviens pas à trouver la solution à mon problème. Alors je m’oriente vers vous afin de m’aider.

Alors voilà j’ai Je souhaiterai parcourir la ligne de A5 à J5 et pour chaque cellule contenu dans cette plage ajouter plusieurs conditions IF

Exemple :

A. B. C. D. E...

Alfa. Bêta. Lima. Roméo Bravo

Comforme. NFC. Loc. Ter. Go

Exmple de condition pour chaque mots

Si mots est équal« Alfa »alors en cellule juste en dessous est écrire « comforme » et faire ceci pour tout les mots

En résumé pour chaque mots une conditions IF

Merci

Bonjour,

Pour maximiser tes chances d'obtenir une réponse parfaitement adaptée à ta situation ...il ne faut pas hésiter à joindre un fichier ..

Bonjour,

Le même mot pour tes 10 cellules, ou un mot différent pour chacune ?

desole avec un fichier c'est meix

13condition-if.xlsx (10.15 Ko)

un mots differents pour chaques cellules

En rouge, ce sont les mots recherchés pour chaque cellule ?

Il n'y en a plus que 5 ?

oui en rouge les mots a chercher et la plage peut varier

exemple de conditions sur toute la ligne

je parcours la ligne si mots trouve, ecrire le mots correspondant juste en dessus de celle si

Je viens de trouver une exemple sur le net

Dim i As Integer
 c = Range("A10:J10").End(xlToRight).Column
    For i = [A65000].End(xlUp).Row To 1 Step -1
        For col = 2 To c

      ElseIf Cells(2, i).Value = "ALFA" Then
      Cells(i).Value = "COMFORME"

peut etre a adapter a mon cas ?

Essaie ceci :

Sub ControlMots()
    Dim mots, i%
    mots = Split("ALFA NFC LOC TER GO")
    With ActiveSheet.Range("A5:E5")
        For i = 1 To 5
            If .Cells(1, i) = mots(i - 1) Then mots(i - 1) = "COMFORME"
        Next i
        .Offset(-1).Value = mots
    End With
End Sub

Cordialement.

c'est une facon qui correspond pas a mon exemple

je souhaiterai arriver vers cette expemple

Dim i As Integer
 c = Range("A5:E5")
    For i = [A65000].End(xlUp).Row To 1 Step -1

        If Cells(2, i).Value = "ALFA" Then
      Cells(i).Value = "CONFORME"

      If Cells(2, i).Value = "BETA" Then
      Cells(i).Value = "NFC"

      

ETC...... il peut en avoir jusqu'a 50 conditions

D'une part, la liste étant prédéfinie et limitative, chaque fois que tu la changes tu devras modifier ta macro...

D'autre part, mon code est finalisé et il fonctionne ! Ce qui est toujours mieux qu'un code non finalisé, approximatif, à la syntaxe également approximative ! Et il pourra fonctionner en y apportant les modifications que tu souhaites de façon fort simple car il n'y aura jamais que deux éléments à modifier : la liste des mots et la plage à contrôler qui doit comporter autant de cellule que de mots dans la liste.

En outre, je ne suis pas très enclin à remettre sur pieds n'importe quel code-déchet trouvé sur le Net, lorsque l'on peut faire aisément du sur-mesure, et surtout lorsque j'en ai produit un que je pense optimisé, et qui donc s'exécutera plus rapidement que ton exemple qui tend à piétiner...

Pas fait de mesure, mais on peut en faire ! (quand il y aura un code à comparer)

Cordialement.

Je te remercie d'avoir pris le temps de m'expliquer , je vais essayer de faire les modifications dont tu parle et faire le test en esperant arriver au resultat souhaite

Bonne journée

Rechercher des sujets similaires à "condition"