Discussion :

[needlesurfer]

Voilà, j'en suit à ajouter des boutons dans ma feuille afin de dupliquer certaine lignes. L'idée est de dupliquer un champs créé dans une feuille servant à entrer les infos de nos intervenants. Le champs se réparti sur 6 lignes et possède des cellules "mergés" (pardon je n'ai pas l'expression francophone).

Ceci apporte un défi de taille car si j'insère 6 lignes et que je copie une à une les lignes supérieures à celle-ci les "merge" ne sont pas conservés.

J'en suis donc venu à la conclusion que sélectionner les lignes et les copier en bloc avant de les coller résoudrais mon problème. Ça marche pas, j'ai écrit ce code mais mon problème vient surtout du fait que je veut me servir de mon bouton comme point de référence, me permettant ainsi de m'en servir ailleur dans le fichier.

Si j'appui sur le bouton ça insére 6 ligne au-dessu du bouton, sélectionne de la 12e à la 7e ligne au-dessus du bouton en bloc et les copie et les colle de la 6e à la 1ière ligne au-dessus du bouton.

voici le code concernant la sélection, rendu à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rstart = butrow.Rows

on me dit que "object required" et le débugeur sélectione

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rstart =

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AddRow_Intervenants2()
 
    Dim butrange As Range
    Dim rstart As Long
    Dim rend As Long
 
    Set butrange = ActiveSheet.Buttons(Application.Caller).TopLeftCell
 
    Set rstart = butrange.Rows
    Set rend = rstart - 6
 
    Rows(rstart & ":" & rend).Select
 
End Sub

[aalex_38]

Pas de set ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 rstart = butrange.Rows

[needlesurfer]

Pas de set ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 rstart = butrange.Rows

On approche de la solution

mais maintenant ça bloque à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(rstart & ":" & rend).Select

ça sélectionne la ligne en entier et me dit:

run time error '13':

Type Mismatch

[DeaD78]

J'ai pas bien compris le problème du bouton mais je vais déjà t'apporter 2 petites réponses qui pourront t'aider

1) "Merge" : cela concerne la "Fusion" des cellules en français. Bon, ok, ce n'est pas une réponse et ça ne va pas t'aider

2) Par contre, tu disais que les "Merge" ne sont pas conservés lorsque tu fais ton Copy/Paste. Je te conseille d'aller jeter un œil (sans te l'arracher ) à PasteSpecial qui pourrait être bien utile dans ton cas. Je suis sûr que tu devrais pouvoir trouver un moyen de garder ton "Merge" lors de ton copier/coller . Direction les tutos, le forum ou même !

[needlesurfer]

1) "Merge" : cela concerne la "Fusion" des cellules en français. Bon, ok, ce n'est pas une réponse et ça ne va pas t'aider

Fusion...

j'ai honte

merci pour la correction

[aalex_38]

regardes ce que tu as la dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Montest = rstart & ":" & rend
msgbox Montest

[needlesurfer]

regardes ce que tu as la dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Montest = rstart & ":" & rend
msgbox Montest

Le résultat est 0:-6 ce qui me semble bizarre...

je suis perdu

Je n'en revient pas, voilà plusieurs mois que j'essai ce truc à temps perdu mais j'avoue être au point ou vraiment je commence à délirer.

/chialage on

PERSONNE, PERSONNE sur internet n'as eu, jamais à insérer un certain nombre de ligne via un macro et coller d'autre lignes dedans???!!!

Ça me semble si absurde, c'est simple en apparence ce que je veux:
insère six ligne au-dessus de mon bouton
prend les lignes 12 a 7 au-dessus du bouton et copie-les dans les cellules qui viennent d'être ajouter (6 à 1).

Il me semble que mon bouton est un bon point de départ, ça marche dans TOUT mes scripts si je ne veux qu'insérer une ligne (en fait copier une ligne, ajouter un champs...) mais lorsque je veux insérer 6 lignes et copier coller six lignes c'est la galère. Franchement après 30 ans d'existence je ne peux croire que ce logiciel ne peut faire ça.

Je veux juste le faire avec des variables au lieu de lui dire d'insérer des lignes à partir d'une ligne précise (comme lorsqu'on enregistre un macro). Je ne vois pas l'idée d'écrire un macro d'insertion de ligne qui n'est pas relatif (au-dessus du bouton, en dessous de la ligne précédente...).

/chialage off

Merci beaucoup pour votre aide à venir jusqu'a maintenant. J'espère en venir à bout d'ici la fin de l'année. Insérer 6 lignes, qui aurait cru, les produits microsoft ont le don de nous donner du fil à retorde aux moments les plus inattendus

[Pierre Fauconnier]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rstart = butrange.Row

sans "s" à Row, car tu veux utiliser le numéro de la ligne de la cellule