Bonjour à tous.
Je vais essayer d’être clair avec pour support le fichier Excel joint.
En feuille « Import » je récupère des données de la CAO.
Sur les 4 feuilles suivantes je souhaite récupérer des listes en fct de certaines conditions :
-Feuille « ListePlan » : Récupérer les lignes qui répondent à :
o Une valeur existe dans la cellule "FormatPlan"
o Une valeur existe dans la cellule « N°Plan »
o Cellule vide pour « Stock » (pas de valeur « OUI »)
- Feuille « Achat » : Récupérer les lignes qui répondent à :
o La valeur "achat" existe dans la cellule « Article »
o Cellule vide pour « Stock » (pas de valeur « OUI »)
- Feuille « ERP » : Récupérer les lignes qui répondent à :
o Valeur "oui" pour cellule "Stock"
- Feuille « PoidsParFamille » : Synthèse des poids / famille matière avec les conditions suivantes :
o Une valeur existe dans la cellule "Poids"
o Une valeur existe dans la cellule " N°Plan "
o Une valeur existe dans la cellule "FamilleMatière"
o Cellule vide pour « Stock » (pas de valeur « OUI »)
Comment fait on pour indiquer qu’il y a plusieurs conditions à remplir du type « IF cell » ???
Exemple : If Cell.Offset(0, 1) <> "" Then ET If Cell.Offset(0, 2) = "achat" Then ET .......
Merci bcp
Cordialement
Julian
Macro en conctruction (TransfertListePlan en construction)
Sub Transfert()
Dim Cell As Range
Sheets("ListePlan").Range("A20:K1000").Clear
With Sheets("Import")
For Each Cell In .Range("B5:B" & .Range("B65536").End(xlUp).Row)
If Cell.Offset(0, 1) <> "" Then
If Cell.Offset(0, 2) = "achat"
Cell.EntireRow.Copy Destination:=Sheets("ListePlan").Range("A" & Sheets("ListePlan").Range("A65536").End(xlUp).Row + 1)
End If
Next
End With
End Sub
..............
Je vais essayer d’être clair avec pour support le fichier Excel joint.
En feuille « Import » je récupère des données de la CAO.
Sur les 4 feuilles suivantes je souhaite récupérer des listes en fct de certaines conditions :
-Feuille « ListePlan » : Récupérer les lignes qui répondent à :
o Une valeur existe dans la cellule "FormatPlan"
o Une valeur existe dans la cellule « N°Plan »
o Cellule vide pour « Stock » (pas de valeur « OUI »)
- Feuille « Achat » : Récupérer les lignes qui répondent à :
o La valeur "achat" existe dans la cellule « Article »
o Cellule vide pour « Stock » (pas de valeur « OUI »)
- Feuille « ERP » : Récupérer les lignes qui répondent à :
o Valeur "oui" pour cellule "Stock"
- Feuille « PoidsParFamille » : Synthèse des poids / famille matière avec les conditions suivantes :
o Une valeur existe dans la cellule "Poids"
o Une valeur existe dans la cellule " N°Plan "
o Une valeur existe dans la cellule "FamilleMatière"
o Cellule vide pour « Stock » (pas de valeur « OUI »)
Comment fait on pour indiquer qu’il y a plusieurs conditions à remplir du type « IF cell » ???
Exemple : If Cell.Offset(0, 1) <> "" Then ET If Cell.Offset(0, 2) = "achat" Then ET .......
Merci bcp
Cordialement
Julian
Macro en conctruction (TransfertListePlan en construction)
Sub Transfert()
Dim Cell As Range
Sheets("ListePlan").Range("A20:K1000").Clear
With Sheets("Import")
For Each Cell In .Range("B5:B" & .Range("B65536").End(xlUp).Row)
If Cell.Offset(0, 1) <> "" Then
If Cell.Offset(0, 2) = "achat"
Cell.EntireRow.Copy Destination:=Sheets("ListePlan").Range("A" & Sheets("ListePlan").Range("A65536").End(xlUp).Row + 1)
End If
Next
End With
End Sub
..............