Incrémenter tableau un tableau avec feuille 2 avec boucle
Fermé
saxo91
Messages postés
33
Date d'inscription
lundi 19 octobre 2015
Statut
Membre
Dernière intervention
17 octobre 2023
-
29 mars 2017 à 12:39
saxo91 Messages postés 33 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 17 octobre 2023 - 30 mars 2017 à 12:16
saxo91 Messages postés 33 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 17 octobre 2023 - 30 mars 2017 à 12:16
A voir également:
- Incrémenter tableau un tableau avec feuille 2 avec boucle
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Tableau word - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Whatsapp avec 2 cartes sim - Guide
4 réponses
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
29 mars 2017 à 20:33
29 mars 2017 à 20:33
Bonjour
Un petit exemple
http://www.cjoint.com/c/GCDsGMUQDFp
Cdlmnt
Un petit exemple
http://www.cjoint.com/c/GCDsGMUQDFp
Cdlmnt
saxo91
Messages postés
33
Date d'inscription
lundi 19 octobre 2015
Statut
Membre
Dernière intervention
17 octobre 2023
1
30 mars 2017 à 05:33
30 mars 2017 à 05:33
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.
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié le 30 mars 2017 à 09:58
Modifié le 30 mars 2017 à 09:58
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
saxo91
Messages postés
33
Date d'inscription
lundi 19 octobre 2015
Statut
Membre
Dernière intervention
17 octobre 2023
1
30 mars 2017 à 12:16
30 mars 2017 à 12:16
Bonjour ccm81,
Sur celui que tu m'as transmis et de fait le mien car je n'ai pas trouvé ...
La variable : li=6
Le code que tu m'envoies là marche nickel !!
Merci beaucoup
Sur celui que tu m'as transmis et de fait le mien car je n'ai pas trouvé ...
La variable : li=6
Le code que tu m'envoies là marche nickel !!
Merci beaucoup