Discussion :

[conarlebarban]

Bonjour,

Ne trouvant pas la solution je m'en remets aux lumières qui pourraient m'éclairer. Je souhaite depuis un tableau de base (sur la feuille principale) ajouter un modele de tableau (stocké dans la feuille 2) à chaque clic sur un bouton.
Le soucis est que j'arrive à insérer le tableau une première fois mais après le programme bloque.
J'identifie le problème car j'ai dans ma macro :

Code :

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

1
2
Range("G1").Select
ActiveSheet.Paste

Donc mon programme ne fait que copier par dessus la case G1 est ne s'incrémente jamais. Comment faire pour détecter la première colonne vide afin de continuer le copiage ?

Merci d'avance

[Tooth]

Bonjour,

Voici un code te permettant de trouver la première cellule vide, attention à ne pas avoir des cellules vides dans ton tableau sinon les nouvelles données seront collées à cet endroit. A adapter à tes besoins.

Code :

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

Worksheets("nomDeLaFeuille").Range("A1").End(xlDown).Offset(1, 0))

Cordialement,

Thomas

[conarlebarban]

C'est justement mon problème je souhaiterais pouvoir intégrer le tableau suivant sans avoir a remplir complètement le tableau précédent :S

[Tooth]

Si j'ai bien compris, c'est juste pour faire les structures des tableaux afin de pouvoir les remplir après coup ? En gros il n'y aurait que les en-têtes des tableaux dans la feuille ?

Les tableaux sont à taille fixe ou à taille variable ?

Dans le cas d'un tableau à taille fixe, il faut régler le premier paramètre de la méthode Offset par la taille de ton premier tableau

[conarlebarban]

Les en-têtes du tableaux se recopient oui mais les formules à l'intérieure du tableau copié dépendent du tableaux précédent. Sachant que les tableaux peuvent gagner des lignes ou en perdre ...Donc ils restent variables.
J'ai essayé de détecter la présence de valeur/texte dans la première cellule de chaque colonne avant de copier mais il ne veut pas car mes cellule d’en-tête sont fusionnées ...

[Tooth]

Est-ce vraiment nécessaire de fusionner des cellules ? Si c'est seulement pour le design ou par manque de place, redimensionnes les. Sinon tu peux tester à partir de la cellule après l'en-tête ce qui t'évitera les erreurs à cause de la fusion des cellules.

Je te propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Sub test()
 
Dim compteur As Integer
Dim texte As String
 
texte = "Bonjour"
 
compteur = 3
 
 
    Do While Range("A0" & compteur) <> void
 
        If Range("A3" & compteur) = void Then
 
            compteur = compteur + 1
 
        Else
 
            GoTo fin
 
        End If
    Loop
 
fin:
 
    Range("A0" & compteur) = texte
 
End Sub

A savoir que pour la valeur du compteur initial (ici 3), il faut mettre le numéro de la ligne suivant ton en-tête et que à la place de "=texte", à la fin, il faudra que tu mettes ton tableau, la j'ai crée cette variable juste pour le test.

Edit : La condition if est totalement useless, puisque la boucle réalise déjà le test de condition.