Fin de colonne aléatoire

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

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

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

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

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

Merci Bernard!

parfait ta solution, ça fonctionne bien
Encore Merci 🙂