Discussion :

[ikiwi]

Bonjour,

Dans mon fichier Excel compilé chaque semaine, j'ai plusieurs milliers de lignes (variables).

J'aimerais que toutes les cellules d'une colonne (G par exemple) se remplissent par le mot "TEST", mais jusqu'à la dernière ligne présente.

En gros, si le fichier possède 10 lignes, le mot TEST sera inclus dans G1:G10
Si le fichier possède 34543 lignes, le mot TEST sera inclus dans G1:G34543

Merci d'avance de votre retour.

[riaolle]

Bonjour,
Y a-t-il besoin de VBA ?

S'il y a vraiment besoin de VBA :

• Dernière ligne non vide de la colonne A :
  

  Code :

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

  Range("A" & Rows.Count).End(xlUp).Row

• Remplir une plage donnée : avec AutoFill. Par exemple :
  

  Code :

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

  Range("A1").AutoFill destination:=Range("A1:A10")

  Remplie A1:A10 avec ce qu'il y a dans A1.

[unparia]

Bonjour
Et quel est donc ton "gros" problème ?
1) déterminer le rang de la dernière ligne x remplie en colonne G
ou
2) attribuer la valeur "TEST" à la plage G1:Gx ?

Car là, c'est vraiment du B.A.BA de chez B.A.BA, quand même !

EDIT : Bonjour Riaolle.
Tu es très gentil, mais ne crains-tu pas d'encourager à développer par copier/coller, sans même apprendre les rudiments ?

Nul besoin de Autofill pour si peu, d'ailleurs ...

[ikiwi]

Bonjour à vous et merci de votre retour.

Je suis conscient que c'est probablement du B.A.BA, mais je sèche malgré toute depuis quelques jours... (honte à moi si besoin...)

J'ai besoin d' "attribuer la valeur "TEST" à la plage G1:Gx ?" (X étant la dernière ligne non vide de la colonne A).

[riaolle]

Oui, c'est vrai qu'AutoFill n'est pas nécessaire ... en fait, j'ai traduit mes images en code VBA (double clique pour remplir les lignes). Mais on peut tout simplement attribuer la valeur aux lignes G1:Gx.

ikiwi, quel est ton code pour l'instant ? Qu'as-tu réussi à faire ? As-tu un message d'erreur ? Si oui, lequel et où ?
Est-ce que tu sais comment attribuer une valeur à une cellule ? Si oui, tu fais la même chose pour plusieurs cellules. Si non, utilise l'enregistreur de macro pour voir comment attribuer une valeur à une cellule.
Est-ce que ton problème vient du fait que tu ne sais pas définir une plage de cellule avec une variable ? Voici des exemples avec des variables : essaie de comprendre et d'adapter à ton cas :

Code :

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

1
2
3
4
5
6
7
8
9
Dim nomFamille As String
nomFamille = "Dupond"
MsgBox "Mon nom est nomFamille"         'affichera : Mon nom est nomFamille
MsgBox "Mon nom est " & nomFamille     'affichera : Mon nom est Dupond
 
Dim i As Integer
i = 3
MsgBox "J'ai i enfants"     'affichera : J'ai i enfants
MsgBox "J'ai " & i & " enfants"       'affichera : J'ai 3 enfants

Essaie de produire un code avec tous ces conseils et reviens vers nous

[jerome.vaussenat]

Salut,

La réponse de riaolle de te va pas ?

C'est de loin la solution la plus simple à une condition :
Que tu est un tableau avec des données dans les colonnes B à F. Il n'est pas nécessaire que toutes les cellules soient remplies. Un titre en haut est largement suffisant.

En plus avec l'impression écran.

Je ne peux pas résister : c'est souvent les cordonniers les plus mal chaussés. Bosser dans une SSII et buter sur ce genre de fonction. Mais c'est comme çà. Ce n'est pas une critique, juste une remarque. Cà me fait penser à mon ancien patron qui ne savait pas changer la couleur d'une cellule !!!

[ikiwi]

Hello,

Merci pour tes conseils. Je me suis "amusé" avec les bouts de code que tu m'as fourni et j'ai compris le principe pour afficher une boîte de dialogue...

J'ai également compris comment intégrer la variable du nombre de ligne dans " i ".

Cependant, je n'arrive pas à l'intégrer dans la colonne G:

Code :

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

1
2
3
4
5
6
Dim i As Integer
i = Range("A" & Rows.Count).End(xlUp).Row
 
Range("G1").Select
    ActiveCell.FormulaR1C1 = "TEST"
    Selection.AutoFill Destination:=Range("G1:G&i&"), Type:=xlFillDefault

J'ai cette erreur:

[Invité]

Code :

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

1
2
3
4
5
6
Dim i As Integer
i = Range("A" & Rows.Count).End(xlUp).Row
 
Range("G1").Select
    ActiveCell.FormulaR1C1 = "TEST"
    Selection.AutoFill Destination:=Range("G1:G" & i ), Type:=xlFillDefault

Ceci est la bonne syntaxe.