XL 2010 Macro - Copier/Coller dans une cellule ou une autre selon valeur cellule

AHK · 21 Mars 2021

Bonjour,

J'ai un fichier avec un formulaire, je voudrais copier les valeurs de ce formulaire dans une feuille ou dans une autre cela dépendrai de la valeur d'une des cellules du formulaire.

Exemple :
Destination du document : "Site" ou "Groupe" (liste déroulante)
Le formulaire en dessous est complété.

Donc en appuyant sur le bouton enregistrer via une macro je souhaiterai que si la destination du document est "Site" alors les données du formulaire se copie dans l'onglet "Site".
Si la destination est "Groupe" alors les données vont dans l'onglet "Groupe".

Si vous pouviez m'aider, j'ai regardé plein de tuto YTB mais je ne trouve pas .

AHK · 21 Mars 2021

Voici un fichier exemple

iliess · 21 Mars 2021

bonjour
un simple fichier exemple nous aide a trouver une solution

AHK · 23 Mars 2021

iliess à dit:
bonjour
un simple fichier exemple nous aide a trouver une solution

Il est là

AHK · 31 Mai 2021

J'ai réussie !!!
Avec Dim MaFeuille As String
Mafeuille = 'Endroit ou il y a mon choix pour choisir la feuille
Puis avec Activate et Select je peux copier Coller les valeurs !!!!

Phil69970 · 31 Mai 2021

Bonjour @AHK, @iliess

Je te propose ce code :

VB:

Sub Bouton16_EnregistrerNvDoc()
Application.ScreenUpdating = False
Dim DerligSrc&, DerligDst&, F

DerligSrc = Feuil1.Range("A" & Rows.Count).End(xlUp).Row

F = "Documents " & Feuil1.[C6]

If Feuil2.Name = F Then
    DerligDst = Feuil2.Range("C" & Rows.Count).End(xlUp).Row + 1
    Feuil1.Range("A11:J" & DerligSrc).Copy
    Feuil2.Range("C" & DerligDst & ":L" & DerligDst).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
Else
    DerligDst = Feuil3.Range("C" & Rows.Count).End(xlUp).Row + 1
    Feuil1.Range("A11:J" & DerligSrc).Copy
    Feuil3.Range("C" & DerligDst & ":L" & DerligDst).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End If

End Sub

*Il faut éviter au maximum les "activate" et les "select"

AHK à dit:
Puis avec Activate et Select je peux copier Coller les valeurs !!!!

@Phil69970

AHK · 1 Juin 2021

Phil69970 à dit:

Bonjour @AHK, @iliess

Je te propose ce code :

VB:

Sub Bouton16_EnregistrerNvDoc()
Application.ScreenUpdating = False
Dim DerligSrc&, DerligDst&, F

DerligSrc = Feuil1.Range("A" & Rows.Count).End(xlUp).Row

F = "Documents " & Feuil1.[C6]

If Feuil2.Name = F Then
    DerligDst = Feuil2.Range("C" & Rows.Count).End(xlUp).Row + 1
    Feuil1.Range("A11:J" & DerligSrc).Copy
    Feuil2.Range("C" & DerligDst & ":L" & DerligDst).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
Else
    DerligDst = Feuil3.Range("C" & Rows.Count).End(xlUp).Row + 1
    Feuil1.Range("A11:J" & DerligSrc).Copy
    Feuil3.Range("C" & DerligDst & ":L" & DerligDst).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End If

End Sub

*Il faut éviter au maximum les "activate" et les "select"

@Phil69970

Merci beaucoup !!

XL 2010 Macro - Copier/Coller dans une cellule ou une autre selon valeur cellule

AHK

XLDnaute Nouveau

AHK

XLDnaute Nouveau

Pièces jointes

iliess

XLDnaute Occasionnel

AHK

XLDnaute Nouveau

AHK

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

AHK

XLDnaute Nouveau

Discussions similaires