Incrémenter tableau un tableau avec feuille 2 avec boucle
Fermé
saxo91
Messages postés
30
Date d'inscription
lundi 19 octobre 2015
Statut
Membre
Dernière intervention
16 mai 2022
-
29 mars 2017 à 12:39
saxo91 Messages postés 30 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 16 mai 2022 - 30 mars 2017 à 12:16
saxo91 Messages postés 30 Date d'inscription lundi 19 octobre 2015 Statut Membre Dernière intervention 16 mai 2022 - 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
- Afficher un tableau en c - Forum C
- Tableau word - Guide
- Tableau pétanque imprimer - Forum Logiciels
4 réponses
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
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
30
Date d'inscription
lundi 19 octobre 2015
Statut
Membre
Dernière intervention
16 mai 2022
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
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
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
30
Date d'inscription
lundi 19 octobre 2015
Statut
Membre
Dernière intervention
16 mai 2022
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