Bonsoir Kevin je voulais savoir comment peut codé un bouton en VBA pour rechercher des informations sur une autre feuille de base en boucle de 8 ou 10 lignes et les modifier en les envoyant ensuite à la base encore
Bonjour Site conseillé par un ami. très instructif pour nous les naïfs du code VBA. la vidéo " copier coller plage de données" et surtour la procedure "sub copier Si coller variable" la condition Si se porte sur des nombres.... Peut-on adapter ladite procedure pour la fonction " Aujourdhui" ou "TODAY" Ne connaissant rien en VBA cela serait fort interessant.... merci pour la prise en consideration de cette requete. cordialement Emma
ปีที่แล้ว
Bonjour, on peut effectivement tester la date du jour dans nos conditions VBA sans problèmes, il faut utiliser Date. Par exemple, on peut tester si la date de la cellule est avant celle du jour avec If ws.Cells(i,2) < Date Then. En présumant que la date est en colonne 2 et que i indique la ligne du fichier, ainsi que la format de la colonne est bien celui d'une date.
Bonjour et merçi pour vos vidéos je suis débutant en vba la copie plage de données dans une autre feuille est très bien j'ai essayé d'adapter votre code à mes besoin mais je n'y arrive pas par exemple si en colonne A Feuil1 première cellule vide est A9 alors copier plage de cellules Feuill1 A29 à C29 vers Feuil2 première ligne vide est il aussi possible plutot que de mettre dans Feuill2 mettre dans Classeur 2 dans le même dossier je sais que je demande beaucoup mais j'ai une seconde macro qui se lance après la première, est-il possible de lancer troisième macro après la seconde encore merçi pour vos vidéos elles sont très instructives Jacques
Bonjour Kévin, et si ce tableau en feuille 1 est résultat de calculs, je souhaite coller uniquement les valeurs en feuille 2 comment coller ?
8 หลายเดือนก่อน
Si on utilise le .Copy pour copier une plage de données qui a des résultats de formules dedans, il faudra utiliser sur la ligne d'en-dessous la référence à la cellule où on veut coller l'information suivi de .PasteSpecial xlPasteValues
Bonjour Kévin, merci beaucoup pour vos vidéo qui sont très claires et d'un grand support. J'essaye d'adapter mais je fais une erreur. Je souhaite copier coller une colonne de données de la feuille 1 vers un tableau de compilation en feuille 2 en ligne. Puis retour à la feuille 1. Dans la feuille 2 je souhaite que les données se retrouvent à la suite des précédentes. Je commence à la case A5 et ainsi de suite. Le code que j'essaye : Je bug sur la 4ème ligne c'est à dire l'endroit où coller la première fois (case A5) et les suivantes après. Range(Cells(Rows.Count, 1).End(x1up).Row + 1, 1).Select Sub copier_coller_derligne() ' ' copier_coller_derligne Macro ' ' Range("D6:D23").Select Selection.Copy Sheets("Feuille de compil").Select Range(Cells(Rows.Count, 1).End(x1up).Row + 1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Range("A6").Select Sheets("Page de garde").Select Range("A5").Select Application.CutCopyMode = False End Sub Pouvez-vous m'aider? Cordialement.
7 หลายเดือนก่อน
Bonjour, de ce que je vois dans le code, on peut simplifier aux lignes suivantes : Dim ws_1 as Worksheet Dim ws_2 as Worksheet Dim rw_paste as long Set ws_1 = Worksheets("Page de garde") Set ws_2 = Worksheets("Feuille de compil") 'vérifier ligne pour coller If ws_2.cells(1,5) = "" Then rw_paste = 5 Else rw_paste = ws_2.Cells(rows.count,1).end(xlup).row +1 End If ws_1.Range(ws_1.Cells(4,6), ws_1.Cells(4,23)).Copy ws_2.Cells(1,rw_paste).PasteSpecial xlPasteValues Ici, l'important est de dissocier la recherche de la ligne où on souhaite coller l'information du reste afin de déterminer sa valeur dans la variable que j'ai appelé rw_paste ci-dessus. En espérant que ça aide !
Bonjour, Quelle est la commande qui nous sert à effacer automatiquement les dernières plages collées lorsqu'on relance le copier coller avec une autre condition
Bonsoir Kevin je voulais savoir comment peut codé un bouton en VBA pour rechercher des informations sur une autre feuille de base en boucle de 8 ou 10 lignes et les modifier en les envoyant ensuite à la base encore
Bonjour
Site conseillé par un ami. très instructif pour nous les naïfs du code VBA.
la vidéo " copier coller plage de données" et surtour la procedure "sub copier Si coller variable"
la condition Si se porte sur des nombres....
Peut-on adapter ladite procedure pour la fonction " Aujourdhui" ou "TODAY"
Ne connaissant rien en VBA cela serait fort interessant....
merci pour la prise en consideration de cette requete.
cordialement
Emma
Bonjour, on peut effectivement tester la date du jour dans nos conditions VBA sans problèmes, il faut utiliser Date. Par exemple, on peut tester si la date de la cellule est avant celle du jour avec If ws.Cells(i,2) < Date Then. En présumant que la date est en colonne 2 et que i indique la ligne du fichier, ainsi que la format de la colonne est bien celui d'une date.
Génial
Merci
Bonjour et merçi pour vos vidéos
je suis débutant en vba
la copie plage de données dans une autre feuille est très bien
j'ai essayé d'adapter votre code à mes besoin mais je n'y arrive pas
par exemple si en colonne A Feuil1 première cellule vide est A9 alors copier plage de cellules Feuill1 A29 à C29 vers Feuil2 première ligne vide
est il aussi possible plutot que de mettre dans Feuill2 mettre dans Classeur 2 dans le même dossier
je sais que je demande beaucoup mais j'ai une seconde macro qui se lance après la première, est-il possible de lancer troisième macro après la seconde
encore merçi pour vos vidéos elles sont très instructives
Jacques
Bonjour Kévin, et si ce tableau en feuille 1 est résultat de calculs, je souhaite coller uniquement les valeurs en feuille 2 comment coller ?
Si on utilise le .Copy pour copier une plage de données qui a des résultats de formules dedans, il faudra utiliser sur la ligne d'en-dessous la référence à la cellule où on veut coller l'information suivi de .PasteSpecial xlPasteValues
Bonjour Kévin, merci beaucoup pour vos vidéo qui sont très claires et d'un grand support.
J'essaye d'adapter mais je fais une erreur.
Je souhaite copier coller une colonne de données de la feuille 1 vers un tableau de compilation en feuille 2 en ligne. Puis retour à la feuille 1.
Dans la feuille 2 je souhaite que les données se retrouvent à la suite des précédentes.
Je commence à la case A5 et ainsi de suite.
Le code que j'essaye :
Je bug sur la 4ème ligne c'est à dire l'endroit où coller la première fois (case A5) et les suivantes après.
Range(Cells(Rows.Count, 1).End(x1up).Row + 1, 1).Select
Sub copier_coller_derligne()
'
' copier_coller_derligne Macro
'
'
Range("D6:D23").Select
Selection.Copy
Sheets("Feuille de compil").Select
Range(Cells(Rows.Count, 1).End(x1up).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A6").Select
Sheets("Page de garde").Select
Range("A5").Select
Application.CutCopyMode = False
End Sub
Pouvez-vous m'aider?
Cordialement.
Bonjour, de ce que je vois dans le code, on peut simplifier aux lignes suivantes :
Dim ws_1 as Worksheet
Dim ws_2 as Worksheet
Dim rw_paste as long
Set ws_1 = Worksheets("Page de garde")
Set ws_2 = Worksheets("Feuille de compil")
'vérifier ligne pour coller
If ws_2.cells(1,5) = "" Then
rw_paste = 5
Else
rw_paste = ws_2.Cells(rows.count,1).end(xlup).row +1
End If
ws_1.Range(ws_1.Cells(4,6), ws_1.Cells(4,23)).Copy
ws_2.Cells(1,rw_paste).PasteSpecial xlPasteValues
Ici, l'important est de dissocier la recherche de la ligne où on souhaite coller l'information du reste afin de déterminer sa valeur dans la variable que j'ai appelé rw_paste ci-dessus.
En espérant que ça aide !
Bonjour,
Quelle est la commande qui nous sert à effacer automatiquement les dernières plages collées lorsqu'on relance le copier coller avec une autre condition