Fin de colonne aléatoire

[Maximom]

Bonjour,
Comment spécifier dans une macro une fin de colonne qui peut être aléatoire.
J'exécute une macro sur différents tableaux, avec parfois 35, 36, 37, .... lignes.
Un nombre de lignes indéfinies

Voila ce que j'ai ici pour 2500 lignes
Merci de votre aide

Range('G1').Select
ActiveCell.FormulaR1C1 = '-1'
Selection.AutoFill Destination:=Range('G1:G2005')
Range('G1:G2005').Select
ActiveWindow.SmallScroll Down:=-10

 

[CBernardT]

Bonjour Maximom et le forum,

Si tu veux incrémenter (recopier) une valeur dans une colonne par rapport à une autre colonne, tu dois connaître la longueur de cette dernière colonne.

Tu veux incrémenter la valeur 1 dans la colonne G par rapport à la colonne F qui contient des données.
Tu peux utiliser le code suivant :

Sub Macro1()
'Déclaration d'une variable correspondant à la nature de ton besoin
Dim Ligne As Integer
'Définition de la variable, ici, dernière ligne de la colonne F
Ligne = Range('F65536').End(xlUp).Row
' Mise en place de la valeur 1 dans la colonne G en face de la plage de la colonne F
Range('G1:G' & Ligne) = 1
End Sub

Cordialement

Bernard

 

[Maximom]

Bonjour CbernardT

Non, je ne veux faire cela par rapport à une autre colonne!

je veux simplement inclure dans toute la colonne F la valeur '-1' sur toutes les lignes de la colonne, et le problème vient du fait que le nombre de ligne est indéfini, parfois 30, parfois 5000, 12000....
Je me sers de cette macro sur de nombreux tableaux tous avec un nombres de lignes différents.
Merci

 

[CBernardT]

Re,

Si tu veux mettre une valeur dans toutes les cellules d'une colonne jusqu'à une cellule dont la position est aléatoire, qu'elle est le critère qui permet de savoir à quel moment il faut s'arrêter.

Pourquoi ne mets-tu pas un petit exemple de ton fichier sur le forum pour nous permettre de mieux appréhender ton problème !

A+

Bernard

 

[Maximom]

Effectivement,
cela parait tellement plus simple quand on voit le fichier!

En fait il n'y a tout simplement plus aucune donnée ensuite,
exemple
A B C D
1 X X -1 X
2 X X -1 X
3 X X -1 X

Voila pour faire simple, le fichier pèse 1Mo!

Je veux simplement remplir une colonne jusqu'a la derniere ligne ou il y a un caractere.
Merci

 

[CBernardT]

re Maximom,

Je reprends ma première intervention :

Si tu veux incrémenter une valeur dans une colonne dont la longueur n'est pas connue, il est indispensable de s'appuyer sur la longueur d'une autre colonne.

Il est possible d'utiliser la longueur d'une colonne de base A ou B, etc.. pour connaître la valeur de sa dernière ligne.

Sub Macro1()
'Déclaration d'une variable
Dim Ligne As Integer
'Définition de la variable, ici, dernière ligne de la colonne A
Ligne = Range('A65536').End(xlUp).Row
' Mise en place de la valeur 1 dans la colonne G en face de la plage de la colonne F
Range('G1:G' & Ligne) = 1
End Sub

Testes cette macro est revient nous dire si elle convient !

Cordialement

Bernard

 

[Maximom]

Merci Bernard!

parfait ta solution, ça fonctionne bien
Encore Merci