remplir une cellule

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

Bonjour Andra,

Observe dans cette ligne de code, j'ai modifié A65536 pour B65536
à l'intérieur des crochets droits.

Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)


Salutations!


"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433C414.6070200@laposte.net...
dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

C'est impec
merci

ma nullité me désespère, j'aurais du trouver

encore merci

===========================================
michdenis a écrit:

Bonjour Andra,

Observe dans cette ligne de code, j'ai modifié A65536 pour B65536
à l'intérieur des crochets droits.

Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)


Salutations!


"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433C414.6070200@laposte.net...
dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

à force de tester je m'aperçois qu'il peut y avoir un petit problème
dans ce code :
-------------------
Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
-------------------

par exemple la dernière cellule de la colonne A correspond à la dernière
cellule de la colonne B cela coince

donc il faudrait faire un test avant d'exécuter ce bout de code

et bien sûr je sais pas faire

merci d'avance





michdenis a écrit:

Bonjour Andra,

Observe dans cette ligne de code, j'ai modifié A65536 pour B65536
à l'intérieur des crochets droits.

Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)


Salutations!


"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433C414.6070200@laposte.net...
dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

Tu peux essayer ceci :

'----------------------------
Sub test()

Dim Plg As Range
With Feuil1 ' Nom Feuille à adapter
Set Plg = Range("A" & .Range("A:B").Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row) _
.SpecialCells(xlCellTypeBlanks)
End With
For i = 1 To Plg.Areas.Count
x = Range(Plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
Plg.Areas(i) = x
Next
Set Plg = Nothing
End Sub
'----------------------------


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433DF47.5040703@laposte.net...
à force de tester je m'aperçois qu'il peut y avoir un petit problème
dans ce code :
-------------------
Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
-------------------

par exemple la dernière cellule de la colonne A correspond à la dernière
cellule de la colonne B cela coince

donc il faudrait faire un test avant d'exécuter ce bout de code

et bien sûr je sais pas faire

merci d'avance





michdenis a écrit:

Bonjour Andra,

Observe dans cette ligne de code, j'ai modifié A65536 pour B65536
à l'intérieur des crochets droits.

Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)


Salutations!


"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433C414.6070200@laposte.net...
dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

merci

et justement la feuil1 n'a jamais le même nom
c'est en fait une date qui évolue
je vais essayer de récupérer le nom de la feuille
le coller quelque part
renomer la feuille
et une fois toute la macro redonner le nom initial

a moins que l'on puisse faire plus simple




michdenis a écrit:

Tu peux essayer ceci :

'----------------------------
Sub test()

Dim Plg As Range
With Feuil1 ' Nom Feuille à adapter
Set Plg = Range("A" & .Range("A:B").Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row) _
.SpecialCells(xlCellTypeBlanks)
End With
For i = 1 To Plg.Areas.Count
x = Range(Plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
Plg.Areas(i) = x
Next
Set Plg = Nothing
End Sub
'----------------------------


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433DF47.5040703@laposte.net...
à force de tester je m'aperçois qu'il peut y avoir un petit problème
dans ce code :
-------------------
Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
-------------------

par exemple la dernière cellule de la colonne A correspond à la dernière
cellule de la colonne B cela coince

donc il faudrait faire un test avant d'exécuter ce bout de code

et bien sûr je sais pas faire

merci d'avance





michdenis a écrit:

Bonjour Andra,

Observe dans cette ligne de code, j'ai modifié A65536 pour B65536
à l'intérieur des crochets droits.

Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)


Salutations!


"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433C414.6070200@laposte.net...
dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

| justement la feuil1 n'a jamais le même nom

Attention, dans la ligne de code With Feuil1

Feuil1 n'est pas le nom de l'onglet de la feuille mais
représente la propriété Name visible dans l'éditeur de macro

Tu vois : Feuil1(Feuil1)
Le "Feuil1" qui n'est pas entre parenthèses représente le nom de l'objet.

En utilisant cela, même si l'usager rebaptise le nom de l'onglet de la feuille
cela n'a aucune incidence sur la macro....


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433F8FE.7010900@laposte.net...
merci

et justement la feuil1 n'a jamais le même nom
c'est en fait une date qui évolue
je vais essayer de récupérer le nom de la feuille
le coller quelque part
renomer la feuille
et une fois toute la macro redonner le nom initial

a moins que l'on puisse faire plus simple




michdenis a écrit:

Tu peux essayer ceci :

'----------------------------
Sub test()

Dim Plg As Range
With Feuil1 ' Nom Feuille à adapter
Set Plg = Range("A" & .Range("A:B").Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row) _
.SpecialCells(xlCellTypeBlanks)
End With
For i = 1 To Plg.Areas.Count
x = Range(Plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
Plg.Areas(i) = x
Next
Set Plg = Nothing
End Sub
'----------------------------


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433DF47.5040703@laposte.net...
à force de tester je m'aperçois qu'il peut y avoir un petit problème
dans ce code :
-------------------
Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
-------------------

par exemple la dernière cellule de la colonne A correspond à la dernière
cellule de la colonne B cela coince

donc il faudrait faire un test avant d'exécuter ce bout de code

et bien sûr je sais pas faire

merci d'avance





michdenis a écrit:

Bonjour Andra,

Observe dans cette ligne de code, j'ai modifié A65536 pour B65536
à l'intérieur des crochets droits.

Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)


Salutations!


"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433C414.6070200@laposte.net...
dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

j'ai testé

je sais que je suis un peu casse pied

mais il reste un problème pour mon cas
cela fonctionne si j'ai des données sur toutes les lignes de la colonne
B et C,D ..... dans mon cas j'ai une donnée par exemple en A3 mais pas
sur le reste de la ligne
en A25 mais pas sur le reste de la ligne
c'est pourquoi j'ai besoin de recopier cette donnée sur les cellules
vers le bas afin de supprimer par la suite les lignes qui ne contiennent
des données que dans la colonne A

je sais c'est difficile de répondre quand on a pas toutes les infos sous
les yeux
je vous remercie ces bouts de code m'aident à mieux comprendre

Cordialement
Andréa



michdenis a écrit:

| justement la feuil1 n'a jamais le même nom

Attention, dans la ligne de code With Feuil1

Feuil1 n'est pas le nom de l'onglet de la feuille mais
représente la propriété Name visible dans l'éditeur de macro

Tu vois : Feuil1(Feuil1)
Le "Feuil1" qui n'est pas entre parenthèses représente le nom de l'objet.

En utilisant cela, même si l'usager rebaptise le nom de l'onglet de la feuille
cela n'a aucune incidence sur la macro....


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433F8FE.7010900@laposte.net....
merci

et justement la feuil1 n'a jamais le même nom
c'est en fait une date qui évolue
je vais essayer de récupérer le nom de la feuille
le coller quelque part
renomer la feuille
et une fois toute la macro redonner le nom initial

a moins que l'on puisse faire plus simple




michdenis a écrit:

Tu peux essayer ceci :

'----------------------------
Sub test()

Dim Plg As Range
With Feuil1 ' Nom Feuille à adapter
Set Plg = Range("A" & .Range("A:B").Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row) _
.SpecialCells(xlCellTypeBlanks)
End With
For i = 1 To Plg.Areas.Count
x = Range(Plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
Plg.Areas(i) = x
Next
Set Plg = Nothing
End Sub
'----------------------------


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433DF47.5040703@laposte.net...
à force de tester je m'aperçois qu'il peut y avoir un petit problème
dans ce code :
-------------------
Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
-------------------

par exemple la dernière cellule de la colonne A correspond à la dernière
cellule de la colonne B cela coince

donc il faudrait faire un test avant d'exécuter ce bout de code

et bien sûr je sais pas faire

merci d'avance





michdenis a écrit:

Bonjour Andra,

Observe dans cette ligne de code, j'ai modifié A65536 pour B65536
à l'intérieur des crochets droits.

Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)


Salutations!


"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433C414.6070200@laposte.net...
dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance

Bonjour Andrea,

Je passe la main... il y en a probablement d'autres susceptibles
de comprendre la donne de ta problématique.

Bonne chance,


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4434DE3E.4050002@laposte.net...
j'ai testé

je sais que je suis un peu casse pied

mais il reste un problème pour mon cas
cela fonctionne si j'ai des données sur toutes les lignes de la colonne
B et C,D ..... dans mon cas j'ai une donnée par exemple en A3 mais pas
sur le reste de la ligne
en A25 mais pas sur le reste de la ligne
c'est pourquoi j'ai besoin de recopier cette donnée sur les cellules
vers le bas afin de supprimer par la suite les lignes qui ne contiennent
des données que dans la colonne A

je sais c'est difficile de répondre quand on a pas toutes les infos sous
les yeux
je vous remercie ces bouts de code m'aident à mieux comprendre

Cordialement
Andréa



michdenis a écrit:

| justement la feuil1 n'a jamais le même nom

Attention, dans la ligne de code With Feuil1

Feuil1 n'est pas le nom de l'onglet de la feuille mais
représente la propriété Name visible dans l'éditeur de macro

Tu vois : Feuil1(Feuil1)
Le "Feuil1" qui n'est pas entre parenthèses représente le nom de l'objet.

En utilisant cela, même si l'usager rebaptise le nom de l'onglet de la feuille
cela n'a aucune incidence sur la macro....


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433F8FE.7010900@laposte.net....
merci

et justement la feuil1 n'a jamais le même nom
c'est en fait une date qui évolue
je vais essayer de récupérer le nom de la feuille
le coller quelque part
renomer la feuille
et une fois toute la macro redonner le nom initial

a moins que l'on puisse faire plus simple




michdenis a écrit:

Tu peux essayer ceci :

'----------------------------
Sub test()

Dim Plg As Range
With Feuil1 ' Nom Feuille à adapter
Set Plg = Range("A" & .Range("A:B").Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row) _
.SpecialCells(xlCellTypeBlanks)
End With
For i = 1 To Plg.Areas.Count
x = Range(Plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
Plg.Areas(i) = x
Next
Set Plg = Nothing
End Sub
'----------------------------


Salutations!



"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433DF47.5040703@laposte.net...
à force de tester je m'aperçois qu'il peut y avoir un petit problème
dans ce code :
-------------------
Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
-------------------

par exemple la dernière cellule de la colonne A correspond à la dernière
cellule de la colonne B cela coince

donc il faudrait faire un test avant d'exécuter ce bout de code

et bien sûr je sais pas faire

merci d'avance





michdenis a écrit:

Bonjour Andra,

Observe dans cette ligne de code, j'ai modifié A65536 pour B65536
à l'intérieur des crochets droits.

Set plg = Range("A3", [B65536].End(3)).SpecialCells(xlCellTypeBlanks)


Salutations!


"andrea" <andrea.parker@laposte.net> a écrit dans le message de news: 4433C414.6070200@laposte.net...
dans la colonne A j'ai une cellule renseignée d'une manière non régulière
je prend donc le contenu de cette cellule que je recopie vers le bas
jusqu'a la prochaine qui contient quelque chose cela fonctionne bien

mais je voudrais que la derniere cellule renseignée de la colonne a
se recopie jusqu'au niveau de la dernière cellule renseignée de la colonne b

j'espère que j'ai été assez claire
merci


michdenis a écrit:

Bonjour Andrea,

| mais le problème c'est qu'elle ne vas pas jusqu'au bout

Ta macro se rend jusqu'au bout de la dernière cellule occupée
de ta colonne A et non pas au bout de la colonne (dernière cellule A65536)

Quelle est ta définition de "jusqu'au bout" ? Et qu'est-ce que tu veux que
la macro fasse ?


Salutations!


<andrea.parker@laposte.net> a écrit dans le message de news: 44337011.8060809@laposte.net...
Bonjour,
je récupère un tableau qui demande à etre modifié
il me reste juste un souci au niveau des dernières cellules de la colonne A

j'ai des données dans la colonne b
je dois compléter la colonne A

j'ai déjà cette macro

Sub Complète_Lignes()
Set plg = Range("A3", [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
For i = 1 To plg.Areas.Count
x = Range(plg.Areas(i).Item(1).Offset(-1, 0).Address).Value
plg.Areas(i) = x
Next
End Sub

mais le problème c'est qu'elle ne vas pas jusqu'au bout

par exemple je voudrais recopier le mot qui se trouve en A200 tant qu'il
y a une information dans la colonne B qui peut etre par exemple B210

merci d'avance