Discussion :

[ouioui_cmoi]

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

[ML0808]

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 :

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

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é ?

[ouioui_cmoi]

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

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

[cafeine]

Hello,

pensez aux balises code (merci)

essaie

Code :

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

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

[ML0808]

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 :

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

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

Cordialement
Marc

[ouioui_cmoi]

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