Tableau Evolutif via macro

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:

---

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

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:

---

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

---

Cordialement,

Thomas

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

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

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 ...

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:

---

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.

Concrètement voila ce que donne mon tableau.
Pièce jointe 149561

Ma macro est comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub MacroAjoutControle() ' ' MacroAjoutControle Macro   ActiveSheet.Shapes("Button 1").IncrementLeft 240 ActiveSheet.Shapes("Button 1").IncrementTop 0.75 Sheets("Feuil2").Select Range("A1:D8").Select (sur cette ligne c'est bien sur D8 précédé de : ) Selection.Copy Sheets("Feuil1").Select Range("G1:J1").Select ActiveSheet.Paste End Sub

---

Pour commencer, tu peux "simplifier" le programme et rendre beaucoup plus propre la syntaxe, notamment pour copier/coller les données du tableau de la "Feuil2" vers la "Feuil1" :

Code:

---

Worksheets("Feuil2").Columns("A:D").Copy Worksheets("Feuil1").Range("G1").End(xlDown).Offset(1, 0)

---

Ensuite, effectivement la fusion des cellules pose des problèmes, il faudrait que tu fusionnes d'abord les cellules où tu va avoir l'en-tête "Contrôle 2". Pour ce qui est de la sélection de la première cellule vide, pourquoi ne pas remplir le champ "Flux" avec des 0 ?

je voudrais eviter de remplir avec des 0 afin de bien visualiser si il manque une mesure. En revanche en partant de la deuxieme ligne je n'ai plus de cellules fusionnées donc je ne peux appliquer le bout de code que tu m'a donné précedemment ?

Le problème est que le tableau que tu importes contient lui aussi des cellules fusionnées. Il faut donc que tu trouve la première cellule non vide, que tu fusionnes les cellules (A savoir pour ton fichier "G + premiere ligne vide" jusqu'a "J + premiere ligne vide") , en passant par l'enregistreur de macro et en adaptant ça se fait assez facilement. Mais tu vas te retrouver avec le même problème lorsque tu va importer un autre tableau.

Je me demande donc si il est bien utile de laisser dans le tableau que tu va importer les cellules fusionnées (a savoir Contrôle 2). Si tu décides de ne pas prendre cette ligne dans ton copier/coller, alors oui tu pourras utiliser le bout de code que j'ai mis.

Ok pour la fusion de cellule je peux le faire à la fin de la macro mais sinon je dois admettre que je bloque ...
je me demandais si en utilisant la fonction RechercheV ou SI(NB.SI..... ca serait une solution ?

Sinon en utilisant ca :

Code:

---

Range("A1").End(xlToRight).Column

---

Je scanne comme ca ma ligne et dès qu'il trouve une cellule dans la 1ere ligne vide je peux faire ma copie ?

en cherchant tout d'abord la ligne ou le tableau n'est pas remplit comme ca :

Code:

---

1 2	toto = Range("A1").End(xlToRight).Column

---

(je le stocke bien sur dans une variable que j'utiliserais plus tard.
Mon soucis est au niveau de la selection de la case :

Code:

---

Range("G1:J1").Select

---

Si je remplace G1 par ma variable toto (qui stocke la coordonnée de la cellule?) je suis en panne d'inspiration pour la J1... calcul de la largeur du tableau et je rajoute la largeur a la coordonnée sotckée dans toto ?
Help please