Discussion :

[Portsall]

Bonjour,

J'aurai besoin de votre aide pour développer une routine VBA dans Excel.

Pour une colonne donnée (par ex. A), j'ai des valeurs dans certains champs de cette colonne (par ex. A1 = BRS, A5 =TLN, A12=AC ...), les autres cellules de la colonne sont vides. J'aurai voulu automatiser la recopie de la valeur A1 jusqu'à A4 puis de la valeur A5 jusqu'à A11 et ainsi de suite....

Je tourne en rond depuis des jours, pourriez-vous me proposer une solution.

Merci d'avance

Yann

[Portsall]

Je souhaite remplir dans la colonne A les cellules vides entre 2 cellules renseignées de la valeur de la cellule du dessus (voir exemple ci-dessous)


J'ai utiliser la fonction Do Loop et cette synthaxe : Cells(Selection.Row + 1, Selection.Column) = Selection.Value mais cela ne marche pas

[Portsall]

Le problème, c'est qu'il s'agit d'un fichier de plus de 12000 lignes avec des valeurs aléatoires et qui peuvent évoluer (cellule de la valeur à copier) lors de la mise à jour du fichier.

Il me faut trouver un code pour tester si la cellule est renseignée, si oui je copie la valeur, je descends d'une ligne si la cellule est vide je colle la valeur sinon je copie la valeur et ainsi de suite

Merci

[AlainTech]

Juste avant d'aller me coucher

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Recopie()
  Dim iLastLine As Long
  Dim rCell As Range
  Dim rRange As Range
  iLastLine = Cells.SpecialCells(xlLastCell).Row
  Set rRange = Range([A1], Cells(iLastLine, 1))
  For Each rCell In rRange
    If IsEmpty(rCell) Then
      rCell = rCell.Offset(-1, 0)
    End If
  Next rCell
End Sub

[Portsall]

Merci beaucoup, cela correspond tout à fait à mon besoin !!!

Bonne nuit