Liste avec des conditions. Boucle While et IF
Résolu
LH
-
LH -
LH -
A voir également:
- Liste avec des conditions. Boucle While et IF
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Liste code ascii - Guide
- Liste site streaming illégal - Accueil - Services en ligne
- Liste des appareils connectés - 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
