Cette procédure corrige la lacune pour la section ou tu as beaucoup de sections FR consécutifs que je n'avais pas vu!
'--------------------------------------------------------- Sub test() Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A2:A" & .Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=A" & .Item(1).Row - 1 End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With With .Range("B2:B" & .Range("B6556").End(xlUp).Row) Set Trouve = .Find(What:="", LookAt:=xlValue) If Not Trouve Is Nothing Then Adr = Trouve.Address
Do If A = 0 Then Trouve.Offset(, -1) = "" End If Set Trouve = .FindNext(Trouve) SS = Trouve.Address If A = 0 Then A = 1 Else: A = 0 End If Loop Until Adr = Trouve.Address End If End With End With Application.ScreenUpdating = True Application.EnableEvents = True
End Sub '---------------------------------------------------------
Cette procédure corrige la lacune pour la section
ou tu as beaucoup de sections FR consécutifs que je
n'avais pas vu!
'---------------------------------------------------------
Sub test()
Dim A As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Extraction")
With .Range("A2:A" &
.Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
.Formula = "=A" & .Item(1).Row - 1
End With
With .Range("A2:A" & .Range("B6556").End(xlUp).Row)
T = .Value
.Value = T
End With
With .Range("B2:B" & .Range("B6556").End(xlUp).Row)
Set Trouve = .Find(What:="", LookAt:=xlValue)
If Not Trouve Is Nothing Then
Adr = Trouve.Address
Do
If A = 0 Then
Trouve.Offset(, -1) = ""
End If
Set Trouve = .FindNext(Trouve)
SS = Trouve.Address
If A = 0 Then
A = 1
Else: A = 0
End If
Loop Until Adr = Trouve.Address
End If
End With
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'---------------------------------------------------------
Cette procédure corrige la lacune pour la section ou tu as beaucoup de sections FR consécutifs que je n'avais pas vu!
'--------------------------------------------------------- Sub test() Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A2:A" & .Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=A" & .Item(1).Row - 1 End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With With .Range("B2:B" & .Range("B6556").End(xlUp).Row) Set Trouve = .Find(What:="", LookAt:=xlValue) If Not Trouve Is Nothing Then Adr = Trouve.Address
Do If A = 0 Then Trouve.Offset(, -1) = "" End If Set Trouve = .FindNext(Trouve) SS = Trouve.Address If A = 0 Then A = 1 Else: A = 0 End If Loop Until Adr = Trouve.Address End If End With End With Application.ScreenUpdating = True Application.EnableEvents = True
End Sub '---------------------------------------------------------
MichD
Enfin, je pense que là c'est complet! ;-)
'------------------------------------------------------------------------- Sub test()
Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A2:A" & .Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=A" & .Item(1).Row - 1 End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With With .Range("B3:B" & .Range("B65536").End(xlUp).Row) Set Trouve = .Find(What:="", LookAt:=xlValue) If Not Trouve Is Nothing Then Adr = Trouve.Address Do If A = 0 Then Trouve.Offset(, -1) = "" End If Set Trouve = .FindNext(Trouve) If A = 0 Then A = 1 Else: A = 0 End If Loop Until Adr = Trouve.Address End If End With End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '-------------------------------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : l8q37a$b4i$
Cette procédure corrige la lacune pour la section ou tu as beaucoup de sections FR consécutifs que je n'avais pas vu!
'--------------------------------------------------------- Sub test() Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A2:A" & .Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=A" & .Item(1).Row - 1 End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With With .Range("B2:B" & .Range("B6556").End(xlUp).Row) Set Trouve = .Find(What:="", LookAt:=xlValue) If Not Trouve Is Nothing Then Adr = Trouve.Address
Do If A = 0 Then Trouve.Offset(, -1) = "" End If Set Trouve = .FindNext(Trouve) SS = Trouve.Address If A = 0 Then A = 1 Else: A = 0 End If Loop Until Adr = Trouve.Address End If End With End With Application.ScreenUpdating = True Application.EnableEvents = True
End Sub '---------------------------------------------------------
Enfin, je pense que là c'est complet!
;-)
'-------------------------------------------------------------------------
Sub test()
Dim A As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Extraction")
With .Range("A2:A" &
.Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
.Formula = "=A" & .Item(1).Row - 1
End With
With .Range("A2:A" & .Range("B6556").End(xlUp).Row)
T = .Value
.Value = T
End With
With .Range("B3:B" & .Range("B65536").End(xlUp).Row)
Set Trouve = .Find(What:="", LookAt:=xlValue)
If Not Trouve Is Nothing Then
Adr = Trouve.Address
Do
If A = 0 Then
Trouve.Offset(, -1) = ""
End If
Set Trouve = .FindNext(Trouve)
If A = 0 Then
A = 1
Else: A = 0
End If
Loop Until Adr = Trouve.Address
End If
End With
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'-------------------------------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
l8q37a$b4i$1@speranza.aioe.org...
Cette procédure corrige la lacune pour la section
ou tu as beaucoup de sections FR consécutifs que je
n'avais pas vu!
'---------------------------------------------------------
Sub test()
Dim A As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Extraction")
With .Range("A2:A" &
.Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
.Formula = "=A" & .Item(1).Row - 1
End With
With .Range("A2:A" & .Range("B6556").End(xlUp).Row)
T = .Value
.Value = T
End With
With .Range("B2:B" & .Range("B6556").End(xlUp).Row)
Set Trouve = .Find(What:="", LookAt:=xlValue)
If Not Trouve Is Nothing Then
Adr = Trouve.Address
Do
If A = 0 Then
Trouve.Offset(, -1) = ""
End If
Set Trouve = .FindNext(Trouve)
SS = Trouve.Address
If A = 0 Then
A = 1
Else: A = 0
End If
Loop Until Adr = Trouve.Address
End If
End With
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'---------------------------------------------------------
'------------------------------------------------------------------------- Sub test()
Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A2:A" & .Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=A" & .Item(1).Row - 1 End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With With .Range("B3:B" & .Range("B65536").End(xlUp).Row) Set Trouve = .Find(What:="", LookAt:=xlValue) If Not Trouve Is Nothing Then Adr = Trouve.Address Do If A = 0 Then Trouve.Offset(, -1) = "" End If Set Trouve = .FindNext(Trouve) If A = 0 Then A = 1 Else: A = 0 End If Loop Until Adr = Trouve.Address End If End With End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '-------------------------------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : l8q37a$b4i$
Cette procédure corrige la lacune pour la section ou tu as beaucoup de sections FR consécutifs que je n'avais pas vu!
'--------------------------------------------------------- Sub test() Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A2:A" & .Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=A" & .Item(1).Row - 1 End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With With .Range("B2:B" & .Range("B6556").End(xlUp).Row) Set Trouve = .Find(What:="", LookAt:=xlValue) If Not Trouve Is Nothing Then Adr = Trouve.Address
Do If A = 0 Then Trouve.Offset(, -1) = "" End If Set Trouve = .FindNext(Trouve) SS = Trouve.Address If A = 0 Then A = 1 Else: A = 0 End If Loop Until Adr = Trouve.Address End If End With End With Application.ScreenUpdating = True Application.EnableEvents = True
End Sub '---------------------------------------------------------
MichD
On peut raccourcir le code, compliquer la formule et augmenter la vitesse d'exécution comme ça :
'------------------------------------------ Sub test() Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A3:A" & .Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=IF(And(OFFSET(A" & .Item(1).Row & ",,1,,)="""",OFFSET(A" & _ .Item(1).Row & ",,2,,)=""""),"""",A" & .Item(0).Row & ")" End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '------------------------------------------
On peut raccourcir le code, compliquer la formule et augmenter
la vitesse d'exécution comme ça :
'------------------------------------------
Sub test()
Dim A As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Extraction")
With .Range("A3:A" &
.Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
.Formula = "=IF(And(OFFSET(A" & .Item(1).Row &
",,1,,)="""",OFFSET(A" & _
.Item(1).Row & ",,2,,)=""""),"""",A" & .Item(0).Row &
")"
End With
With .Range("A2:A" & .Range("B6556").End(xlUp).Row)
T = .Value
.Value = T
End With
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'------------------------------------------
On peut raccourcir le code, compliquer la formule et augmenter la vitesse d'exécution comme ça :
'------------------------------------------ Sub test() Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A3:A" & .Range("B6556").End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=IF(And(OFFSET(A" & .Item(1).Row & ",,1,,)="""",OFFSET(A" & _ .Item(1).Row & ",,2,,)=""""),"""",A" & .Item(0).Row & ")" End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '------------------------------------------
MichD
Comme il y a un petit problème avec la coupure des lignes, une petite dernière :
'------------------------------------------------ Sub test() Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A3:A" & .Range("B6556"). _ End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=IF(And(OFFSET(A" & .Item(1).Row & _ ",,1,,)="""",OFFSET(A" & .Item(1).Row & _ ",,2,,)=""""),"""",A" & .Item(0).Row & ")" End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '------------------------------------------------
Comme il y a un petit problème avec la coupure des lignes,
une petite dernière :
'------------------------------------------------
Sub test()
Dim A As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Extraction")
With .Range("A3:A" & .Range("B6556"). _
End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
.Formula = "=IF(And(OFFSET(A" & .Item(1).Row & _
",,1,,)="""",OFFSET(A" & .Item(1).Row & _
",,2,,)=""""),"""",A" & .Item(0).Row & ")"
End With
With .Range("A2:A" & .Range("B6556").End(xlUp).Row)
T = .Value
.Value = T
End With
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'------------------------------------------------
Comme il y a un petit problème avec la coupure des lignes, une petite dernière :
'------------------------------------------------ Sub test() Dim A As Long Application.ScreenUpdating = False Application.EnableEvents = False With Worksheets("Extraction") With .Range("A3:A" & .Range("B6556"). _ End(xlUp).Row).SpecialCells(xlCellTypeBlanks) .Formula = "=IF(And(OFFSET(A" & .Item(1).Row & _ ",,1,,)="""",OFFSET(A" & .Item(1).Row & _ ",,2,,)=""""),"""",A" & .Item(0).Row & ")" End With With .Range("A2:A" & .Range("B6556").End(xlUp).Row) T = .Value .Value = T End With End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '------------------------------------------------
suze32
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment vot re code se rapporte à une colonne spécifique? Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonne s et cela ne fonctionne pas.
Merci pour votre aide
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment vot re code se rapporte à une colonne spécifique?
Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonne s et cela ne fonctionne pas.
Je ne suis pas encore très forte en VBA, en pleine formation, comment vot re code se rapporte à une colonne spécifique? Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonne s et cela ne fonctionne pas.
Merci pour votre aide
suze32
Bonjour MichD,
Merci beaucoup pour votre aide, mais quand je colle le dernier code, cela me fait une erreur sur la formule ci-dessous :
Ce que fait la macro de Jacky (les commentaires sont dans la macro) Sub jj() Dim i As Long Dim Fin
With Sheets("Extraction") 'Dernière ligne de la colonne B Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row 'Si dans la colonne A, la cellule au-dessus n'est pas vide If .Cells(i - 1, 1) <> "" Then 'et si la cellule adjacente n'est pas vide If .Cells(i, 2) <> "" Then 'la cellule de la colonne A prend la valeur de la 'cellule du dessus .Cells(i, 1).Value = Cells(i - 1, 1).Value End If End If Next End With End Sub
Bonne journée à Tous Michel
"suze32" a écrit dans le message de groupe de discussion :
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment votre code se rapporte à une colonne spécifique? Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes et cela ne fonctionne pas.
Merci pour votre aide
Bonjour suze32, bonjour à Tous,
Ce que fait la macro de Jacky (les commentaires sont dans la macro)
Sub jj()
Dim i As Long
Dim Fin
With Sheets("Extraction")
'Dernière ligne de la colonne B
Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row
'Si dans la colonne A, la cellule au-dessus n'est pas vide
If .Cells(i - 1, 1) <> "" Then
'et si la cellule adjacente n'est pas vide
If .Cells(i, 2) <> "" Then
'la cellule de la colonne A prend la valeur de la
'cellule du dessus
.Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
End If
Next
End With
End Sub
Bonne journée à Tous
Michel
"suze32" a écrit dans le message de groupe de discussion :
395265df-0ceb-4f6f-942a-9fd49634df29@googlegroups.com...
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment votre
code se rapporte à une colonne spécifique?
Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes et
cela ne fonctionne pas.
Ce que fait la macro de Jacky (les commentaires sont dans la macro) Sub jj() Dim i As Long Dim Fin
With Sheets("Extraction") 'Dernière ligne de la colonne B Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row 'Si dans la colonne A, la cellule au-dessus n'est pas vide If .Cells(i - 1, 1) <> "" Then 'et si la cellule adjacente n'est pas vide If .Cells(i, 2) <> "" Then 'la cellule de la colonne A prend la valeur de la 'cellule du dessus .Cells(i, 1).Value = Cells(i - 1, 1).Value End If End If Next End With End Sub
Bonne journée à Tous Michel
"suze32" a écrit dans le message de groupe de discussion :
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment votre code se rapporte à une colonne spécifique? Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes et cela ne fonctionne pas.
Merci pour votre aide
MichD
Le service de messagerie a inséré une ligne ou fait une coupure d'une ligne de code inapproprié.
Voici ton fichier de retour. http://cjoint.com/?CLsltHHDLO6
Pour voir la macro, fais un clic droit sur l'onglet de la feuille "Extraction" et choisis dans le menu contextuel la commande "Visualiser le code".
Le service de messagerie a inséré une ligne ou fait une
coupure d'une ligne de code inapproprié.
Voici ton fichier de retour. http://cjoint.com/?CLsltHHDLO6
Pour voir la macro, fais un clic droit sur l'onglet de la feuille
"Extraction" et choisis
dans le menu contextuel la commande "Visualiser le code".
Le service de messagerie a inséré une ligne ou fait une coupure d'une ligne de code inapproprié.
Voici ton fichier de retour. http://cjoint.com/?CLsltHHDLO6
Pour voir la macro, fais un clic droit sur l'onglet de la feuille "Extraction" et choisis dans le menu contextuel la commande "Visualiser le code".
Jacky
Hello Michel.
Sans oublier le "." (point) qui c'était perdu en traversant la grande mare. devant la deuxième Cells .Cells(i, 1).Value = .Cells(i - 1, 1).Value
-- Bomme Fête de fin d'année JJ
"Péhemme" a écrit dans le message de news: l8rsru$dpg$
Bonjour suze32, bonjour à Tous,
Ce que fait la macro de Jacky (les commentaires sont dans la macro) Sub jj() Dim i As Long Dim Fin
With Sheets("Extraction") 'Dernière ligne de la colonne B Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row 'Si dans la colonne A, la cellule au-dessus n'est pas vide If .Cells(i - 1, 1) <> "" Then 'et si la cellule adjacente n'est pas vide If .Cells(i, 2) <> "" Then 'la cellule de la colonne A prend la valeur de la 'cellule du dessus .Cells(i, 1).Value = Cells(i - 1, 1).Value End If End If Next End With End Sub
Bonne journée à Tous Michel
"suze32" a écrit dans le message de groupe de discussion :
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment votre code se rapporte à une colonne spécifique? Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes et cela ne fonctionne pas.
Merci pour votre aide
Hello Michel.
Sans oublier le "." (point) qui c'était perdu en traversant la grande mare.
devant la deuxième Cells
.Cells(i, 1).Value = .Cells(i - 1, 1).Value
--
Bomme Fête de fin d'année
JJ
"Péhemme" <xx@xx.xx> a écrit dans le message de news: l8rsru$dpg$1@speranza.aioe.org...
Bonjour suze32, bonjour à Tous,
Ce que fait la macro de Jacky (les commentaires sont dans la macro)
Sub jj()
Dim i As Long
Dim Fin
With Sheets("Extraction")
'Dernière ligne de la colonne B
Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row
'Si dans la colonne A, la cellule au-dessus n'est pas vide
If .Cells(i - 1, 1) <> "" Then
'et si la cellule adjacente n'est pas vide
If .Cells(i, 2) <> "" Then
'la cellule de la colonne A prend la valeur de la
'cellule du dessus
.Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
End If
Next
End With
End Sub
Bonne journée à Tous
Michel
"suze32" a écrit dans le message de groupe de discussion :
395265df-0ceb-4f6f-942a-9fd49634df29@googlegroups.com...
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment votre code se rapporte à une colonne
spécifique?
Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes et cela ne fonctionne pas.
Sans oublier le "." (point) qui c'était perdu en traversant la grande mare. devant la deuxième Cells .Cells(i, 1).Value = .Cells(i - 1, 1).Value
-- Bomme Fête de fin d'année JJ
"Péhemme" a écrit dans le message de news: l8rsru$dpg$
Bonjour suze32, bonjour à Tous,
Ce que fait la macro de Jacky (les commentaires sont dans la macro) Sub jj() Dim i As Long Dim Fin
With Sheets("Extraction") 'Dernière ligne de la colonne B Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row 'Si dans la colonne A, la cellule au-dessus n'est pas vide If .Cells(i - 1, 1) <> "" Then 'et si la cellule adjacente n'est pas vide If .Cells(i, 2) <> "" Then 'la cellule de la colonne A prend la valeur de la 'cellule du dessus .Cells(i, 1).Value = Cells(i - 1, 1).Value End If End If Next End With End Sub
Bonne journée à Tous Michel
"suze32" a écrit dans le message de groupe de discussion :
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment votre code se rapporte à une colonne spécifique? Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes et cela ne fonctionne pas.
Merci pour votre aide
Péhemme
Ahrrr ! Je me mets aux explications de texte et j'oublie un élément important. On ne soulignera jamais assez l'importance de ce point (.) signifiant l'appartenance à l'objet à traiter ; ici la feuille "Extraction". Tu vois, je suis (du verbe suivre). :-) Bonnes fêtes de fin d'année à toi aussi Grosses bises à ta femme et à ta fille. Michel
"Jacky" a écrit dans le message de groupe de discussion : l8ruhf$i16$
Hello Michel.
Sans oublier le "." (point) qui c'était perdu en traversant la grande mare. devant la deuxième Cells .Cells(i, 1).Value = .Cells(i - 1, 1).Value
-- Bomme Fête de fin d'année JJ
"Péhemme" a écrit dans le message de news: l8rsru$dpg$
Bonjour suze32, bonjour à Tous,
Ce que fait la macro de Jacky (les commentaires sont dans la macro) Sub jj() Dim i As Long Dim Fin
With Sheets("Extraction") 'Dernière ligne de la colonne B Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row 'Si dans la colonne A, la cellule au-dessus n'est pas vide If .Cells(i - 1, 1) <> "" Then 'et si la cellule adjacente n'est pas vide If .Cells(i, 2) <> "" Then 'la cellule de la colonne A prend la valeur de la 'cellule du dessus .Cells(i, 1).Value = Cells(i - 1, 1).Value End If End If Next End With End Sub
Bonne journée à Tous Michel
"suze32" a écrit dans le message de groupe de discussion :
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment votre code se rapporte à une colonne spécifique? Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes et cela ne fonctionne pas.
Merci pour votre aide
Ahrrr !
Je me mets aux explications de texte et j'oublie un élément important.
On ne soulignera jamais assez l'importance de ce point (.) signifiant
l'appartenance à l'objet à traiter ; ici la feuille "Extraction".
Tu vois, je suis (du verbe suivre).
:-)
Bonnes fêtes de fin d'année à toi aussi
Grosses bises à ta femme et à ta fille.
Michel
"Jacky" a écrit dans le message de groupe de discussion :
l8ruhf$i16$1@speranza.aioe.org...
Hello Michel.
Sans oublier le "." (point) qui c'était perdu en traversant la grande mare.
devant la deuxième Cells
.Cells(i, 1).Value = .Cells(i - 1, 1).Value
--
Bomme Fête de fin d'année
JJ
"Péhemme" <xx@xx.xx> a écrit dans le message de news:
l8rsru$dpg$1@speranza.aioe.org...
Bonjour suze32, bonjour à Tous,
Ce que fait la macro de Jacky (les commentaires sont dans la macro)
Sub jj()
Dim i As Long
Dim Fin
With Sheets("Extraction")
'Dernière ligne de la colonne B
Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row
'Si dans la colonne A, la cellule au-dessus n'est pas vide
If .Cells(i - 1, 1) <> "" Then
'et si la cellule adjacente n'est pas vide
If .Cells(i, 2) <> "" Then
'la cellule de la colonne A prend la valeur de la
'cellule du dessus
.Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
End If
Next
End With
End Sub
Bonne journée à Tous
Michel
"suze32" a écrit dans le message de groupe de discussion :
395265df-0ceb-4f6f-942a-9fd49634df29@googlegroups.com...
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment
votre code se rapporte à une colonne spécifique?
Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes
et cela ne fonctionne pas.
Ahrrr ! Je me mets aux explications de texte et j'oublie un élément important. On ne soulignera jamais assez l'importance de ce point (.) signifiant l'appartenance à l'objet à traiter ; ici la feuille "Extraction". Tu vois, je suis (du verbe suivre). :-) Bonnes fêtes de fin d'année à toi aussi Grosses bises à ta femme et à ta fille. Michel
"Jacky" a écrit dans le message de groupe de discussion : l8ruhf$i16$
Hello Michel.
Sans oublier le "." (point) qui c'était perdu en traversant la grande mare. devant la deuxième Cells .Cells(i, 1).Value = .Cells(i - 1, 1).Value
-- Bomme Fête de fin d'année JJ
"Péhemme" a écrit dans le message de news: l8rsru$dpg$
Bonjour suze32, bonjour à Tous,
Ce que fait la macro de Jacky (les commentaires sont dans la macro) Sub jj() Dim i As Long Dim Fin
With Sheets("Extraction") 'Dernière ligne de la colonne B Fin = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 3 To Fin '.Cells(.Rows.Count, 2).End(xlUp).Row 'Si dans la colonne A, la cellule au-dessus n'est pas vide If .Cells(i - 1, 1) <> "" Then 'et si la cellule adjacente n'est pas vide If .Cells(i, 2) <> "" Then 'la cellule de la colonne A prend la valeur de la 'cellule du dessus .Cells(i, 1).Value = Cells(i - 1, 1).Value End If End If Next End With End Sub
Bonne journée à Tous Michel
"suze32" a écrit dans le message de groupe de discussion :
Bonjour Jacky,
Je ne suis pas encore très forte en VBA, en pleine formation, comment votre code se rapporte à une colonne spécifique? Car j'ai essayé de le retranscrit dans mon fichier où il y a 10 colonnes et cela ne fonctionne pas.
