VBA | Si contient alors copie sinon passer au suivant
Résolu/Fermé
Kirilov
Messages postés
104
Date d'inscription
dimanche 15 mars 2009
Statut
Membre
Dernière intervention
26 janvier 2022
-
25 oct. 2017 à 09:25
Kirilov Messages postés 104 Date d'inscription dimanche 15 mars 2009 Statut Membre Dernière intervention 26 janvier 2022 - 25 oct. 2017 à 12:15
Kirilov Messages postés 104 Date d'inscription dimanche 15 mars 2009 Statut Membre Dernière intervention 26 janvier 2022 - 25 oct. 2017 à 12:15
A voir également:
- Vba si valeur cellule alors
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Aller à la ligne dans une cellule excel - Guide
- Si cellule contient texte alors ✓ - Forum Excel
- Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels
5 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 699
25 oct. 2017 à 09:40
25 oct. 2017 à 09:40
Bonjour,
Pour du code VBA, il faut connaitre précisément le contexte, aussi si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, ce serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.
Pour du code VBA, il faut connaitre précisément le contexte, aussi si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, ce serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.
Kirilov
Messages postés
104
Date d'inscription
dimanche 15 mars 2009
Statut
Membre
Dernière intervention
26 janvier 2022
1
25 oct. 2017 à 10:28
25 oct. 2017 à 10:28
Bonjour,
Vous trouverez la structure du fichier ici : http://www.cjoint.com/c/GJziCkcuipV
Merci de votre aide,
Kirilov
Vous trouverez la structure du fichier ici : http://www.cjoint.com/c/GJziCkcuipV
Merci de votre aide,
Kirilov
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 699
25 oct. 2017 à 11:05
25 oct. 2017 à 11:05
Bonjour,
Avec cette macro tu devrais effectuer ta copie.
Si tu la lances plusieurs fois, la copie sera toujours effectuée à la suite.
Avec cette macro tu devrais effectuer ta copie.
Public Sub copier() Dim lig As Long With Sheets("Matrice") For lig = 2 To .Cells(Rows.Count, "AD").End(xlUp).Row If .Cells(lig, "AD") = 1 Or .Cells(lig, "AD") = 2 Then .Range("A" & lig & ":AN" & lig).Copy _ Destination:=Sheets("VAL_1").Cells(Sheets("VAL_1").Cells(Rows.Count, "A").End(xlUp).Row + 1, 1) End If Next lig End With End Sub
Si tu la lances plusieurs fois, la copie sera toujours effectuée à la suite.
Kirilov
Messages postés
104
Date d'inscription
dimanche 15 mars 2009
Statut
Membre
Dernière intervention
26 janvier 2022
1
25 oct. 2017 à 11:17
25 oct. 2017 à 11:17
Bonjour Gbinforme,
Je viens de tester et cela ne fonctionne pas malheureusement.
La macro fait un copier/coller uniquement du dernier enregistrement qui contient en Cell AD la valeur 1, à l'exception de toutes les autres. Enfin c'est l'impression que cela me donne.
Kirilov
Je viens de tester et cela ne fonctionne pas malheureusement.
La macro fait un copier/coller uniquement du dernier enregistrement qui contient en Cell AD la valeur 1, à l'exception de toutes les autres. Enfin c'est l'impression que cela me donne.
Kirilov
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 699
25 oct. 2017 à 11:28
25 oct. 2017 à 11:28
re
c'est parce que ta colonne A est vide essaies ainsi
c'est parce que ta colonne A est vide essaies ainsi
Public Sub copier() Dim lig As Long With Sheets("Matrice") For lig = 2 To .Cells(Rows.Count, "AD").End(xlUp).Row If .Cells(lig, "AD") = 1 Or .Cells(lig, "AD") = 2 Then .Range("A" & lig & ":AN" & lig).Copy _ Destination:=Sheets("VAL_1").Cells(Sheets("VAL_1").Cells(Rows.Count, "AD").End(xlUp).Row + 1, 1) End If Next lig End With End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Kirilov
Messages postés
104
Date d'inscription
dimanche 15 mars 2009
Statut
Membre
Dernière intervention
26 janvier 2022
1
25 oct. 2017 à 12:15
25 oct. 2017 à 12:15
MERCI BEAUCOUP.
Ca fonctionne à merveille et ça va me faire gagner un temps fou !
Bien à vous,
Kirilov
Ca fonctionne à merveille et ça va me faire gagner un temps fou !
Bien à vous,
Kirilov