VBA copier/coller avec conditions spécifiques
Résolu/Fermé
Olive0185
Messages postés
17
Date d'inscription
jeudi 24 juillet 2008
Statut
Membre
Dernière intervention
25 septembre 2008
-
5 août 2008 à 11:42
Olive0185 Messages postés 17 Date d'inscription jeudi 24 juillet 2008 Statut Membre Dernière intervention 25 septembre 2008 - 6 août 2008 à 08:45
Olive0185 Messages postés 17 Date d'inscription jeudi 24 juillet 2008 Statut Membre Dernière intervention 25 septembre 2008 - 6 août 2008 à 08:45
A voir également:
- VBA copier/coller avec conditions spécifiques
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Dessin sms copier coller - Forum Jeux vidéo
- Copier coller formule excel sans décalage ✓ - Forum Bureautique
4 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
5 août 2008 à 16:59
5 août 2008 à 16:59
c'est obligé du VBA, sinon tu a la fonction RechercheV
A+
=RECHERCHEV(A2;Feuil1!A3:B29;2)
A+
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
5 août 2008 à 17:40
5 août 2008 à 17:40
A la place de :
Sheets("Feuill2").Select
If Cells(l, 2).Value = "nom" Then
Sheets("Feuill1").Select
Cells(l, 5).Select
Selection.Copy
Sheets("Feuill2").Select
Range("C4").Select
ActiveSheet.Paste
End if
je mettrai :
If Sheets("Feuill2").Cells(l, 2).Value = "nom" Then
Sheets("Feuill2").Range("C4") = Sheets("Feuill1").Cells(l, 5)
End if
Sheets("Feuill2").Select
If Cells(l, 2).Value = "nom" Then
Sheets("Feuill1").Select
Cells(l, 5).Select
Selection.Copy
Sheets("Feuill2").Select
Range("C4").Select
ActiveSheet.Paste
End if
je mettrai :
If Sheets("Feuill2").Cells(l, 2).Value = "nom" Then
Sheets("Feuill2").Range("C4") = Sheets("Feuill1").Cells(l, 5)
End if
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
5 août 2008 à 18:25
5 août 2008 à 18:25
salut thev
nom serra jamais trouvé, c'est exprimé en litéral. De plus la recherche devrait se faire sur la Feuil1
Si pas trop de lignes, je maintient que ce serrait mieux avec une formule RechercheV
If Sheets("Feuill2").Cells(l, 2).Value = "nom" Then
nom serra jamais trouvé, c'est exprimé en litéral. De plus la recherche devrait se faire sur la Feuil1
Si pas trop de lignes, je maintient que ce serrait mieux avec une formule RechercheV
Olive0185
Messages postés
17
Date d'inscription
jeudi 24 juillet 2008
Statut
Membre
Dernière intervention
25 septembre 2008
6
6 août 2008 à 08:45
6 août 2008 à 08:45
Merci pour votre aide. Vos interventions m'ont aidées à avancer dans ma macro.
Prob résolu.
A+
Prob résolu.
A+