Liste avec des conditions. Boucle While et IF
RésoluLH -
Bonjour à tous,
J'ai une liste de mot dans mon fichier excel (cellule U2 à U59) et une liste de réponse (cellules V2 à V59)
Je voudrai que pour chaque ligne du fichier (2 à 156) on teste si la cellule C2 contient le contenu de la cellule U2.
Si oui, alors on renvoit le contenu de la cellule V2 dans la cellule M2. Si non, alors on ne met rien et on passe à la ligne suivante dans notre liste de mot (et on recommence avec U3 et V3 à la place de U2 et V2).
J'avais fait un début de code avec des while (de 2 à 59) et des if mais cela n'a jamais rien donné
Si quelqu'un a une idée de la réponse ou veut me mettre sur la piste je suis super intéressé car copier coller n'est pas possible (la liste va s'allonger dans les semaines à venir).
Merci d'avance à tous
Windows / Chrome 104.0.0.0
- Liste avec des conditions. Boucle While et IF
- Liste déroulante excel - Guide
- Liste code ascii - Guide
- Liste déroulante en cascade - Guide
- Liste des appareils connectés - Guide
- Site dangereux liste - Guide
2 réponses
Bonjour,
chaque ligne du fichier (2 à 156) on teste si la cellule C2 contient le contenu de la cellule U2.
Seulement la cellule C2?
La mise jour doit etre automatique ou sur action type bouton ou combinaison de touche pour lancer le code
Bonjour,
Un exemple de macro :
https://www.cjoint.com/c/LHeqzmDf3Ow
Option Explicit
Sub chercheMot()
Dim listeDeMot As Long
Dim finRecherche As Long
Dim i As Long: i = 2
Dim rangeRecherche As Range
Dim rangeListeMot As Range
Dim ws As Worksheet: Set ws = ActiveSheet
With ws
' Délimite la longueur des listes
finRecherche = .Cells(Rows.Count, "C").End(xlUp).Row
listeDeMot = .Cells(Rows.Count, "U").End(xlUp).Row
' Définit les ranges de recherche
Set rangeRecherche = .Range(.Cells(2, "C"), .Cells(finRecherche, "C"))
Set rangeListeMot = .Range(.Cells(2, "U"), .Cells(listeDeMot, "U"))
' Boucle et recherche pour chaques lignes non vides dans la colonne C
Do
If Not IsError(Application.Match(.Cells(i, "C").Value, rangeListeMot, 0)) Then
' Renvoi le contenu de la cellule Vi dans la cellule Mi
.Cells(i, "M") = .Cells(i, "V")
Else
' Rien
End If
i = i + 1
Loop While .Cells(i, "C") <> ""
End With
End Sub
Bonjour à tous,
Je me permets de revenir vers vous, grâce à Ozone j'ai put résoudre mon problème !
J'ai un peu simplifié le code et ajuster à mon problème :
Option Explicit
Sub chercheMot()
Dim listeDeMot As Long
Dim finRecherche As Long
Dim i As Long: i = 2
Dim j As Long: j = 2
Dim ws As Worksheet: Set ws = ActiveSheet
With ws
' Délimite la longueur des listes
finRecherche = .Cells(Rows.Count, "A").End(xlUp).Row
MsgBox (finRecherche)
listeDeMot = .Cells(Rows.Count, "U").End(xlUp).Row - 1
MsgBox (listeDeMot)
' Boucle et recherche pour chaques lignes non vides dans la colonne C
Do While i < listeDeMot + 2
Do While j < finRecherche + 2
If InStr(1, Cells(j, 3), Cells(i, 21)) <> 0 And Cells(j, 6) > 0 Then
Cells(j, 13) = Cells(i, 22)
End If
j = j + 1
Loop
j = 2
i = i + 1
Loop
End With
End Sub
