XL 2016 estvide

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Février 2024

• #2

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.

VB:

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

 

Pièces jointes

• estvide (1).xlsm

  14.9 KB · Affichages: 4

Vote positif 0 Vote négatif

richardlion

XLDnaute Occasionnel

• 23 Février 2024

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Février 2024

• #4

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.

 

Pièces jointes

• estvide (2).xlsm

  15.3 KB · Affichages: 3

Vote positif 0 Vote négatif

richardlion

XLDnaute Occasionnel

• 23 Février 2024

• #5

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

Bonne journee

 

Vote positif 0 Vote négatif

richardlion

XLDnaute Occasionnel

• 28 Février 2024

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Février 2024

• #7

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

VB:

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 :

Code:

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

 

Vote positif 0 Vote négatif

richardlion

XLDnaute Occasionnel

• 28 Février 2024

• #8

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

 

Vote positif 0 Vote négatif