Discussion :

[mathel]

Bonjour,

Je débute en VBA et je rencontre systématiquement le problème suivant. Je ne sais pas limiter ma commande sur la dernière ligne de ma feuille.
Exemple, j'utilise le code suivant pour que :
Si champ E= "vide" alors colonne D= valeur colonne B
Si champ E= "non vide" alors colonne D= valeur colonne E

Code :

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

1
2
3
4
5
6
7
Sub ColonneD()
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[1]="""",RC[-2],RC[1])"
    Selection.AutoFill Destination:=Range("D2:D4")
    Range("D2:D4").Select
    Range("D2").Select
End Sub

Je voudrais que cette commande s'effectue tant que la Colonne A n'est pas vide.
Plus généralement comment faire une boucle jusqu'à dernière ligne non vide d'une feuille.

Merci d'avance pour vos lumières

[ouskel'n'or]

Code :

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

1
2
    NoCol = 1
    DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row

Pour avoir la dernière ligne renseignée de la colonne A

[Abed_H]

Bonjour
un exemple à tester pour boucler sur la colonne A tant que cellule non vide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ColonneA()
Dim i As Integer
i = 2
Do Until IsEmpty(Cells(i, 1)) ' commencer par la cellule A2
   If Cells(i, 5) <> "" Then 'teste si la cellule E2 contient une valeur
      Cells(i, 4) = Cells(i, 5) ' si oui affecte ça valeur à la colonne D2
     Else ' si non
      Cells(i, 4) = Cells(i, 2) 'affecte la valeur de B2 à D2
     End If
   i = i + 1 'incrémenter le numéro de la ligne
 Loop ' fin de la boucle
End Sub

Abed_H

[mathel]

Merci, j'avoue que vos codes sont plus "propres" que mes tentatives.

J'avoue que j'ai du mal avec les boucles et l'utilisation des variables

Mais j'ai bon espoir, je suis en train d'ingurgiter le document VBA débutant...