XL 2016 estvide

[richardlion]

bonjour a tous,

dans la fonction estvide, je cherche a combler des cellules vides pas la cellules précédente.

en PJ mon fichier
mon but dans une colonne avec des mois dans certaines cellules est de remplir automatiquement les cellules vides par les mois de la cellule précedente

merci a vous.

 

[sylvanu]

Bonsoir Richerdlion,
Un essai en PJ avec cette macro.
La fin est pris arbitrairement en ligne 24 car il n'y a pas de délimiteur de fin.

Sub remplir()
    Application.ScreenUpdating = False
    Dim L%, EnMémoire$
    For L = 4 To 24
        If Cells(L, "C") <> "" Then
            EnMémoire = Cells(L, "C")
        Else
            Cells(L, "C") = EnMémoire
        End If
    Next L
End Sub

 

[richardlion]

Bonjour Sylvanu, merci a toi pour les lignes macro.
si je veux que cette action soit aussi faite dans le tableau par exemple dans la colonne A
quel ligne dois rajouter, j'ai essayé plusieurs truc mais marche pas

 

[sylvanu]

Bonjour,
Donnez un fichier vraiment représentatif.
Les données en A et C sont elles sur la même ligne ou non ?
Peut on traiter les deux colonnes simultanément ?
Un ex en PJ ou A et C sont traités séparément.

 

[richardlion]

Sylvanu,
oui c'est comme ton exemple elle seront traitées simultanément.
Merci a toi.

Bonne journee

 

[richardlion]

Bonjour Sylvanu,
dans ton exemple précédent j'ai essayé de comprendre ta méthode et la macro sans trop de succès.
je cherchais a comprendre pour modifier les colonnes qui peuvent etre différentes de ton exemple
dans ton exemple ce sont les colonnes A et C que je ne retrouve pas dans la macro.
je souhaiterais savoir comment dans ta macro modifier les colonnes concernés.
par exemple si je veux que les colonnes concernés soit A et B ou c et D
a ta disposition pour echange

 

[sylvanu]

Bonjour,
Pour atteindre une cellule on peut faire par ex pour C4 :

Range("C4")
cells(4,"C")
cells(4,3)

J'utilise la 3ème écriture qui est cells(Ligne,Colonne)
donc:
FillColumn 1 traite la colonne 1, soit la colonne A
FillColumn 3 traite la colonne 3, soit la colonne C
Donc pour traiter AB il suffit de faire :

Sub remplir()
    Application.ScreenUpdating = False
    FillColumn 1      ' Colonne A'
    FillColumn 2    ' Colonne B'
End Sub

 

[richardlion]

Ok j'ai encore du chemin pour apprendre.
merci pour ta réponse
Bonne journee.