Condition if

Y compris Power BI, Power Query et toute autre question en lien avec Excel
D
Dehbi
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 3 janvier 2018, 14:08

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
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'333
Appréciations reçues : 282
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 3 janvier 2018, 14:11

Bonjour,

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

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 3 janvier 2018, 14:20

Bonjour,

Le même mot pour tes 10 cellules, ou un mot différent pour chacune ?
D
Dehbi
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 3 janvier 2018, 14:27

desole avec un fichier c'est meix
Condition if.xlsx
(10.15 Kio) Téléchargé 12 fois
D
Dehbi
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 3 janvier 2018, 14:31

un mots differents pour chaques cellules
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 3 janvier 2018, 14:35

En rouge, ce sont les mots recherchés pour chaque cellule ?
Il n'y en a plus que 5 ?
D
Dehbi
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 3 janvier 2018, 14:39

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
D
Dehbi
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 3 janvier 2018, 14:47

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 ?
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 3 janvier 2018, 14:54

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.
dehbi_Condition if.xlsm
(18.87 Kio) Téléchargé 10 fois
D
Dehbi
Membre habitué
Membre habitué
Messages : 89
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 3 janvier 2018, 15:10

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message