nbre de lignes variables

Bonjour
Je voudrais effectuer des opérations du style copier coller une colonne d'un tableau vers une autre colonne, ou encore extraire les données de 3 tableaux les uns au dessus des autres, mais, d'une part ne pas changer les énoncés du tableau , et d'autre part faire en sorte que l'on puisse ajouter des lignes aux tableau (donc sélection de la plage a copier coller qui changerait...).
Comment, par exemple, effectuer lecopier coller de I6:I11 à H6:H11?sachant que le tableau pourrait, plus tard finir par exemple à 12...
c'est une sorte de tableau dynamique...

Autre petite question, comment faire pour que VBA ne modifie pas le fond de la cellule quand il écrit une valeur?

Merci de votre réponse

Salut,

Je suis pas bien sûr d'avoir bien compris ce que tu veux...

Point n°1
Il faut que tu détermine dans une variable le nombre de ligne de ton tableau, cette variable, on l'appelle a par exemple

Code:

---

1 2 3 4 5 6 7

Dim a as Integer a = 6 Do While Sheets(1).Cells(a, 9).Value <> "" a = a + 1 Loop a = a - 1

---

Maintenant ton a contient le numéro de la dernière ligne renseignée de ton tableau (11 dans ton exemple mais si ton tableau prend une ligne de plus, ce sera 12). Ensuite tu copie colle I:6-I:a dans H:6-H:a.

Point n°2
Sheets(1).Cells(x, y).Value = "ce que tu veux y mettre"
La cellule x,y contiendra "ce que tu veux y mettre" mais sa couleur de fond reste la même.

J'ai pas trop tapé à côté ?

merci de la réponse, mais, mon problèeme est que, après, pour copier coller ca me donne :

Code:

---

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

Sub JJ()     Dim a As Integer a = 6 Do While Sheets(1).Cells(a, 9).Value <> "" a = a + 1 Loop a = a - 1 Range("I6-Ia").Select Selection.Cut Range("H6").Select ActiveSheet.Paste   End Sub

---

Et, le VBA n'aime pas le "I6-Ia"...
Quelqu'un saurait il comment le noter?

Hello,

pensez aux balises code (merci)

essaie

Code:

---

Range("A1:A" & uneVariable).Select

---

Salut,

Désolé pour les balises, j'ai pas l'habitude!
Oui, quand je disais "Ensuite tu copie colle I:6-I:a dans H:6-H:a" c'était pour le lyrisme ;-). En code, tu remplaces ta ligne par :

Code:

---

Range("I6:I" & a).Select

---

Cordialement
Marc

Merci de vos réponses...
C'était un petit truc tout bête, mais je connaissais pas la fonction
Merci

De rien.
Il y a tellement de choses dans les macro qu'il y a toujours des petits trucs tout bête qu'on ne connait pas!