Agrandir tableau en fonction de la valeur d'une cellule.

[kayl83]

Bonjour,

je recherche une macro qui permet d'ajouter des lignes à mon tableau en fonction de la valeur d'une cellule.

Si mon Tableau340 comprend 1 idée et que mon Tableau import en comprend 10, alors la macro doit agrandir le Tableau340 de 9 lignes.

Ci-joint un exemple.

Merci de votre aide.

 

[Excel-lent]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Bonjour Kayl83,

Voici ci-joint une macro permettant cela :

Sub AjoutLigne()
Rows("7:" & 6 + [I5] - [I3]).Insert
End Sub

Bonne après midi

 

[kayl83]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Merci, mais ca ne correspond pas ou je n'ai pas compris le "7:"

Il y a bien la création de ligne mais dans toute la feuille et pas uniquement dans "Tableau340"

 

[Balot57]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Bonjour,
Essaie avec : redim preserve Tableau340(1 to nouveau nombre de lignes)

 

[kayl83]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Mon cerveau sent le chaud.

Mais

ReDim Preserve Tableau340(6 To 9)

ne marche pas dans mon fichier.

 

[Balot57]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Il faut que tu écrives redim preserve Tableau340(1 to 9) si tu veux 9 lignes au total.
"redim" redimensionne ton tableau.
"Preserve" conserve les infos existant auparavant dans ton tableau.
"1 to 9" indique que le tableau doit avoir à présent 9 lignes. Il faut obligatoirement commencer par 1.

 

[kayl83]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Je séche, ça ne marche pas non plus.

 

[Balot57]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Je ne peux pas ouvrir ton fichier, essaie de l'enregistrer en excel 2003.

 

[kayl83]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Voilà le fichier en *.xls 2003

 

[Balot57]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Ci-joint le fichier modifié avec une macro ajoutant les lignes.

 

[kayl83]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Merci ca marche, mais penses-tu qu'il est possible que la ligne s'incrémente en dessous de la dernière ligne ?

 

[Balot57]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

Ci-joint le fichier modifié. Ce qui pourrait t'aider une prochaine fois, c'est d'enregistrer une macro pendant que tu fais la manip manuellement. Ensuite, tu consultes le code vba et tu essaies de l'adapter. Je te l'accorde, ce n'est pas toujours facile, mais ça pourra toujours t'aider un peu !

 

[kayl83]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

J'ai bien essayé avec l'enregistreur de macro, mais c'est pas gagné.

J'obtiens le code suivant: ActiveSheet.ListObjects("Tableau340").Resize Range("$B$5:$E$15")

Mais il faudrait en fait que le $E$15 se trouve en fait sous la forme $E$(5+"&I5&"). Mais c'est pas si simple j'ai l'impression.

Merci en tout cas de ton aide. Je cherche encore de mon côté.

 

[Balot57]

Re : Agrandir tableau en fonction de la valeur d'une cellule.

N'oublie pas de retester le deuxième fichier que j'ai joint, normalement ça marche...