Condition if

Y compris Power BI, Power Query et toute autre question en lien avec Excel
D
Dehbi
Membre habitué
Membre habitué
Messages : 95
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 : 12'007
Appréciations reçues : 417
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'196
Appréciations reçues : 446
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 : 95
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é 13 fois
D
Dehbi
Membre habitué
Membre habitué
Messages : 95
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'196
Appréciations reçues : 446
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 : 95
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 : 95
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'196
Appréciations reçues : 446
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é 11 fois
D
Dehbi
Membre habitué
Membre habitué
Messages : 95
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
  • Macro de copie avec condition et collage avec condition
    par hadhoud » 27 juin 2017, 17:38 » dans Excel - VBA
    6 Réponses
    381 Vues
    Dernier message par hadhoud
    28 juin 2017, 19:52
  • integrer une condition dans une condition
    par lyan » 24 mai 2018, 18:26 » dans Excel - VBA
    4 Réponses
    258 Vues
    Dernier message par dhany
    25 mai 2018, 11:16
  • Si condition
    par Colombe23 » 24 juillet 2018, 18:37 » dans Excel - VBA
    6 Réponses
    101 Vues
    Dernier message par mbbp
    24 juillet 2018, 19:58
  • 1 condition
    par ilien » 29 mars 2018, 13:02 » dans Excel - VBA
    12 Réponses
    235 Vues
    Dernier message par ilien
    29 mars 2018, 18:29
  • Condition + ET (?)
    par wktak1 » 21 avril 2016, 10:38 » dans Excel - VBA
    5 Réponses
    170 Vues
    Dernier message par Steelson
    21 avril 2016, 17:12
  • Condition
    par NoemieV » 19 juin 2017, 15:34 » dans Excel - VBA
    4 Réponses
    99 Vues
    Dernier message par mbbp
    19 juin 2017, 18:14