VBA - copier cellule avec variable dynamique
pilipili
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Actuellement novice en VBA, je souhaiterais coller des données dans des cellules vides. Je m'explique.
Je possède un tableau (A14 - B5000). Toutes les cellules de la colonne A sont remplies, ce qui n'est pas le cas de la colonne B. En effet, j'ai certaines cellules qui possèdent des montants/textes : je souhaiterais copier la cellule pleine puis la coller dans toutes les cellules suivantes vides et ce jusqu'à la prochaine cellule pleine où de nouveau la cellule est copiée puis collée dans les cellules suivantes (seul le montant/texte m'importe et non pas le style de la cellule).
Ex : B14 est remplie, la macro copie B14 et la colle dans les cellule B15 à B250; puis sélectionne B251, copie et colle la valeur de B252 à B260 et ainsi de suite jusqu'à B5000. Je ne connais pas à l'avance le nombre de fois que le copier/coller doit avoir lieu.
Est-il possible de faire une boucle avec une variable ? Ce type de macro est-il possible?
Merci d'avance pour vos réponses,
Bonne soirée,
Actuellement novice en VBA, je souhaiterais coller des données dans des cellules vides. Je m'explique.
Je possède un tableau (A14 - B5000). Toutes les cellules de la colonne A sont remplies, ce qui n'est pas le cas de la colonne B. En effet, j'ai certaines cellules qui possèdent des montants/textes : je souhaiterais copier la cellule pleine puis la coller dans toutes les cellules suivantes vides et ce jusqu'à la prochaine cellule pleine où de nouveau la cellule est copiée puis collée dans les cellules suivantes (seul le montant/texte m'importe et non pas le style de la cellule).
Ex : B14 est remplie, la macro copie B14 et la colle dans les cellule B15 à B250; puis sélectionne B251, copie et colle la valeur de B252 à B260 et ainsi de suite jusqu'à B5000. Je ne connais pas à l'avance le nombre de fois que le copier/coller doit avoir lieu.
Est-il possible de faire une boucle avec une variable ? Ce type de macro est-il possible?
Merci d'avance pour vos réponses,
Bonne soirée,
A voir également:
- VBA - copier cellule avec variable dynamique
- Tableau croisé dynamique - Guide
- Excel compter cellule couleur sans vba - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Excel cellule couleur si condition texte - Guide
1 réponse
Bonjour,
je suis partir du principe que B5000 n'était pas fixe et que tu voulais jusqu'à la dernière ligne de A :
eric
je suis partir du principe que B5000 n'était pas fixe et que tu voulais jusqu'à la dernière ligne de A :
Sub completer()
Dim datas, lig As Long, v
datas = Range([A14], Cells(Rows.Count, 1).End(xlUp)).Offset(, 1)
For lig = 1 To UBound(datas)
If IsEmpty(datas(lig, 1)) Then
datas(lig, 1) = v
Else
v = datas(lig, 1)
End If
Next lig
[B14].Resize(UBound(datas)) = datas
End Sub
eric