Incrémenter tableau un tableau avec feuille 2 avec boucle
saxo91
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
saxo91 Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
saxo91 Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
Bonjour Tous,
Je crois que je vais pas m'en sortir !
Une question qui va vous paraître basique de chez basique mais je n'arrive pas à boucler.
Feuille 1 = mon tableau de synthèse
Feuille 2 = tableau de saisie des entrée
Je voudrais juste créer un code qui me copierait les cellules de la feuille 2 vers la feuilles 1, à la suite ...
J'ai mis un fichier exemple là :
https://www.cjoint.com/c/GCDkJdS7XyR
Si un pro est là et peux m'expliquer ?
Merci par avance
Je crois que je vais pas m'en sortir !
Une question qui va vous paraître basique de chez basique mais je n'arrive pas à boucler.
Feuille 1 = mon tableau de synthèse
Feuille 2 = tableau de saisie des entrée
Je voudrais juste créer un code qui me copierait les cellules de la feuille 2 vers la feuilles 1, à la suite ...
J'ai mis un fichier exemple là :
https://www.cjoint.com/c/GCDkJdS7XyR
Si un pro est là et peux m'expliquer ?
Merci par avance
A voir également:
- Incrémenter tableau un tableau avec feuille 2 avec boucle
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
- Imprimer un tableau excel - Guide
4 réponses
Bonjour ccm81
Merci pour ta réponse l'idée est clairement géniale, mais il me met une erreur ici :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim li As Long, lifin As Long
If Target.Value = "" Then Target.Offset(0, 1).Select: Exit Sub
If Not Intersect(Target, Columns(coclicFS)) Is Nothing Then
lifin = Range(coclicFS & Rows.Count).End(xlUp).Row
li = Target.Row
If li < lidebFS Then Target.Offset(0, 1).Select: Exit Sub
Call Transfert(li)
Range("A" & li + 1).Select
End If
End Sub
Erreur "méthode select de la classe Range a échoué"
J'aurais bien été incapable de faire un code comme celui-là, whaouh ! si on pouvait résoudre ce petit souci ce serait top.
Merci pour ta réponse l'idée est clairement géniale, mais il me met une erreur ici :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim li As Long, lifin As Long
If Target.Value = "" Then Target.Offset(0, 1).Select: Exit Sub
If Not Intersect(Target, Columns(coclicFS)) Is Nothing Then
lifin = Range(coclicFS & Rows.Count).End(xlUp).Row
li = Target.Row
If li < lidebFS Then Target.Offset(0, 1).Select: Exit Sub
Call Transfert(li)
Range("A" & li + 1).Select
End If
End Sub
Erreur "méthode select de la classe Range a échoué"
J'aurais bien été incapable de faire un code comme celui-là, whaouh ! si on pouvait résoudre ce petit souci ce serait top.
L'erreur se produit elle sur mon fichier ou sur le tien
Que vaut la variable li lorsque l'erreur se produit
Tu peux essayer ceci
Cdlmnt
Que vaut la variable li lorsque l'erreur se produit
Tu peux essayer ceci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim li As Long, lifin As Long, nf As String
If Target.Value = "" Then Target.Offset(0, 1).Select: Exit Sub
If Not Intersect(Target, Columns(coclicFS)) Is Nothing Then
nf = ActiveSheet.Name
lifin = Range(coclicFS & Rows.Count).End(xlUp).Row
li = Target.Row
If li < lidebFS Then Target.Offset(0, 1).Select: Exit Sub
Call Transfert(li)
Sheets(nf).Activate
Range("A" & li + 1).Select
End If
End Sub
Cdlmnt
