Commande VBA copier/coller sous condition ou rechercheV Résolu/Fermé

Question

Bonjour, 

Je cherche une macro "copier/coller" me permettant l'action suivante : 

Valeur de 3 Cellules à copier (A1:A3) de la Feuil1 en Feuil 2 colonne A
Sur la feuil1 en colonne B j'ai comme référence (une date) exemple : 
En B1 : 10/06/2013
En B2 : 10/05/2019
En B3 : 10/09/2023

Les 3 valeurs (A1:A3) doivent se copier sur la feuil2 au même ligne colonne A ou l'on retrouve ces même dates. 
Ainsi en Feuil2 on a en colonne B des dates qui servent d'échéancier (exemple en B1 : 10/03/2013, B2 : 10/04/2013.....B154 : 10/10/2025)

Si la commande fonctionne en 1 clic on doit avoir sur cet exemple
A1:A3 de la feuille 1 copié en A6, A77, A129

Merci d'avance de votre appui.





Configuration: Windows 7 / Chrome 30.0.1599.101

via55 · Answer

Bonjour

Par exemple :

Sub copie()

For n = 1 To 3
d = Range("B" & n).Value
dlg = Sheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row

For t = 1 To dlg
If Sheets("Feuil2").Range("B" & t) = d Then Sheets("Feuil2").Range("A" & t).Value = Sheets("Feuil1").Range("A" & n).Value

Next t
Next n

End Sub

Cdlmnt

Gilles.DR315 · Answer

Merci bien.
Cdt

Gilles.DR315 · Answer

Bonjour, 

Je reviens sur ce sujet

La formule fonctionne mais partiellement.
J'arrive à copier mes valeurs de Feuil1 vers Feuil2

Mais ce qui me manque, c'est de ne rien faire si la cellule est vide en Feuil1
Exemple ci-dessous. Avec E52:E54 (Dans ces cellules il y a les montants à envoyer en Feuil2) dans F52:F54 (Les dates)
Si F53 F54 sont vide, et que je veux copier E52 çà me provoque une erreur. 

Mon erreur d'execution survient uniquement si F52:F54 sont vides, E52:E54 ne sont pas concernés par l'erreur si elles sont vide. 
C'est donc les dates qui posent problème

Ou je dois mettre si F53:F54 est vide, alors ne rien faire. 
comment l'écrire.

Merci de votre appui.

Sub envoyerdonnées()



For n = 52 To 54



d = Range("F" & n).Value



dlg = Sheets("Feuil2").Range("K" & Rows.Count).End(xlUp).Row



For t = 1 To dlg



If Sheets("Feuil2").Range("K" & t) = d Then Sheets("Feuil2").Range("E" & t).Value = Sheets("Feuil1").Range("E" & n).Value



Next t



Next n



End Sub

Commande VBA copier/coller sous condition ou rechercheV

3 réponses

Discussions similaires