Automatiser une procédure

excalibur

XLDnaute Impliqué

• 5 Novembre 2008

• #2

Re : Automatiser une procédure

bonjour UJAP le forum un exemple a adapter pour tes 8 premiers colonnes

Option Explicit
Sub Macro1()
Dim v As Variant, c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
If c = "" Then c = v Else: v = c
Next
End Sub

 

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 5 Novembre 2008

• #3

Re : Automatiser une procédure

Merci pour ta réponse et ton aide,

Le code fonctionne pour la 1ère colonne mais pas pour les autres ! comment faut-il le modifier pour qu'il fonction sur les autres colonnes ?

Merci,

 

Vote positif 0 Vote négatif

thomlau

XLDnaute Occasionnel

• 5 Novembre 2008

• #4

Re : Automatiser une procédure

Bonjour UJAP, le forum.

Sans en être sur, je crois qu'en intervenant sur cette ligne...

Code:

For Each c In Range("A1:[COLOR="Red"]A[/COLOR]" & Range("[COLOR="red"]A[/COLOR]65536").End(xlUp).Row)

en la modifiant en

Code:

For Each c In Range("A1:[COLOR="Red"]D[/COLOR]" & Range("[COLOR="red"]D[/COLOR]65536").End(xlUp).Row)

essaye et dis nous si ça fonctionne.

 

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 5 Novembre 2008

• #5

Re : Automatiser une procédure

OK, je viens d'essayer, il recopie dans les autres cellules (colonne B,C...) les éléments de la colonne A, je sais pas comment faire,

Avez-vous des idées pour m'aider ?

Merci,

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Novembre 2008

• #6

Re : Automatiser une procédure

Bonjour,
Tu ne précises pas quelles colonnes sont concernées !
Donc ici colonne A à H (modifie j dans le cas contraire)

Code:

Sub Recopie()
Dim i As Integer, j As Integer
    For i = 1 To 308 '308 est la dernière ligne de ton tableau
        For j = 1 To 8  'colonne1 (A) à 8 (H)
            If Cells(i, j) = "" Then Cells(i, j) = Cells(i - 1, j)
        Next j
    Next i
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 5 Novembre 2008

• #7

Re : Automatiser une procédure

Ok je viens de réussir en multipliant le macro,

Pouvez-me dire comment je peux compiler ces 3 macros en un seule afin d’avoir une seule commande,

Les macros :
Sub Macro1()
Dim v As Variant, c As Range
For Each c In Range("B1:B" & Range("B65536").End(xlUp).Row)
If c = "" Then c = v Else: v = c
Next
End Sub

Sub Macro2()
Dim v As Variant, c As Range
For Each c In Range("C1:C" & Range("C65536").End(xlUp).Row)
If c = "" Then c = v Else: v = c
Next
End Sub

Sub Macro3()
Dim v As Variant, c As Range
For Each c In Range("D1😀" & Range("D65536").End(xlUp).Row)
If c = "" Then c = v Else: v = c
Next
End Sub

🙂Merci pour votre aide qui est précieuse,

 

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 5 Novembre 2008

• #8

Re : Automatiser une procédure

Merci pour ta réponse kjin,

Sauf que ma dernière ligne ne sera pas obligatoirement la 308, elle peut varier d'un mois à l'autre,

Peut-on modifier quelque chose dans code ? et merci pour les explications ?

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Novembre 2008

• #9

Re : Automatiser une procédure

Re,
Essaie comme ceci

Code:

Sub Recopie()
Dim i As Integer, j As Integer
    For i = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
        For j = 1 To 8
            If Cells(i, j) = "" Then Cells(i, j) = Cells(i - 1, j)
        Next j
    Next i
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 5 Novembre 2008

• #10

Re : Automatiser une procédure

Merci,

Sauf que ici ils rajoutent des lignes : 309 à 312,

Il faudra qu’il arrête de copier à partir du mmoment il n’y a plus d’informations dans la colonne J ou L ou M,

Fichier en pièce jointe,

Merci,

 

Pièces jointes

• Fichier-exemple-1.zip

  23.4 KB · Affichages: 19

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Novembre 2008

• #11

Re : Automatiser une procédure

Re,
Désolé j'ai oublié qu'il y avait les cellules isolées en bas
Donc, à priori

Code:

Sub Recopie()
Dim i As Integer, j As Integer
    For i = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
        For j = 1 To 8
            If Cells(i, j) = "" Then Cells(i, j) = Cells(i - 1, j)
        Next j
    Next i
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 5 Novembre 2008

• #12

Re : Automatiser une procédure

Super, merci bcp,

Dans les jours à venir j'aurai encore besoin de ton aide, si tu es dispo,

Merci,

 

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 5 Novembre 2008

• #13

Re : Automatiser une procédure

par exemple si je veux rajouter ton code à la suite de ce code, quelle est la procédure,

Sub test()
For i = Range("c65536").End(xlUp).Row To 1 Step -1
If i <> 9 Then
If i < 9 Or Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("c" & i).Value Like "*sum*" Or Range("a" & i).Value Like "*COLLECTIVITE*" Or Range("c" & i).Value Like "*sum*" Or Range("a" & i).Formula Like "*============*" Then
Rows(i).Delete
End If
End If
Next i
End Sub

Merci,
Christophe

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Novembre 2008

• #14

Re : Automatiser une procédure

Re,
D'après le code, ta boucle teste de la ligne 9 à 1, est-ce bien ça ? (i < 9)
A+
kjin

 

Vote positif 0 Vote négatif

U

UJAP

XLDnaute Occasionnel

• 5 Novembre 2008

• #15

Re : Automatiser une procédure

L'objectif de ce code est de sup. des lignes qui ne servent à rien dans le fichier original donc :

- Il sup. les Lignes 1 à 8 pour laisser la légende du tableau puis il d'autres lignes par rapport aux critères,

Je te mets en pièce jointe le fichier original,

Merci,

 

Pièces jointes

• Fichier-original.zip

  17.3 KB · Affichages: 23

Vote positif 0 Vote négatif