Discussion :

[nicodvn]

Bonjour à tous,

J'ai crée une feuille pour pouvoir rentrer différents contacts. pour l'instant je n'ai que contact 1 mais je souhaiterai pouvoir appuyer sur un bouton et qu'apparaisse en dessous contact 2 (avec la même mise en page). Et cela ainsi de suite contact 3 .....

Pourriez-vous m'aider s'il vous plait
Un grand merci car je vais craquer haha

Nico





Est-ce possible de prendre toute la mise en page en compte même la forme avec écrit contact 1?

[Menhir]

Il suffit d'utiliser la méthode Copy de l'objet Range appliqué à l'ensemble de tes lignes modèles du contact 1 et avec pour destination la position où tu comptes placer les nouvelles lignes.

Il faudra sans doute faire une seconde ligne pour copier le bouton lui-même et une autre pour changer son texte.

[nicodvn]

J'ai fait ca pour l'instant

Code :

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

1
2
3
Sub bla()
Worksheets("contacts").Range("d3:n13").Copy Worksheets("contacts").Range("d17")
End Sub

Cela me copie colle bien ma zone et me la colle en dessous MAIS je n'arrive pas à résoudre deux problèmes:
- contact 1 ne se transforme pas en contact 2...3 quand je copie colle
- A chaque fois cela se colle dans la même zone (d17). Je voudrais dire : copie colle 6 lignes en dessous de la dernière copie (à part la première qui n'est pas une copie).

Mais je galèèèèèèère

[Menhir]

Chercher pendat 5 min, tu appelles ça galérer ?

[nicodvn]

Non ca ne fait pas 5 minutes que je cherche. J'ai décidé de poster ce message car ça fait 3 jours que j'essaye. Je galère pas mal en vba.
Je n'utilise pas ce forum comme un moyen de me faire le logiciel. Je ne demande même pas le code mais au moins des aides pour pouvoir le faire.

Je pense qu'il faut que je parte sur ca mais par contre ca ne prendra pas en compte le changement de ma forme avec contact.

5ce n'est pas le code mais mon idée de procédure)
Copier range (d3:n13)
D3 (cellule de reférence et début du contact )+15 (vers le bas)
Si vide Alors coller
Si non alors D3+15+15
en boucle

[Menhir]

Savoir s'il y a déjà un contact 2 :

Code :

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

If cells(21,4).Value = "" then

Tu boucles avec un For to (step 15) sur une variable ajoutée au 21 pour vérifier si les contacts suivants existent.

Pour savoir comment modifier Contact1, s'il s'agit d'une Shapes,

Code :

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

Worksheets("contacts").Shapes("MaFigure").TextFrame2.TextRange.Text = "Contact " & Numero

En remplaçant MaFigure par le nom de ton objet.