Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande. et en parcourant ce forum
j'ai vu qu'il fonctionnait très bien et très vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la fonction n'existe pas pourriez
vous me le dire également, car c'est pour mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour mes erreurs.
Salutations
Pascal
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande. et en parcourant ce forum
j'ai vu qu'il fonctionnait très bien et très vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la fonction n'existe pas pourriez
vous me le dire également, car c'est pour mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour mes erreurs.
Salutations
Pascal
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande. et en parcourant ce forum
j'ai vu qu'il fonctionnait très bien et très vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la fonction n'existe pas pourriez
vous me le dire également, car c'est pour mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour mes erreurs.
Salutations
Pascal
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande. et
en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très vite,
d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour mon
travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour mes
erreurs.
Salutations
Pascal
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande. et
en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très vite,
d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour mon
travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour mes
erreurs.
Salutations
Pascal
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande. et
en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très vite,
d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour mon
travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour mes
erreurs.
Salutations
Pascal
Bonjour Pascal,
Rassure toi, tu n'as pas commis d'erreur majeur, si ce n'est celle de
poster plusieurs fois ta question.
Comme tu l'observes à juste titre, MPFE est généralement très réactif ;
cependant il arrive tout de même que personne ne se sente inspiré par une
question, ou ne possède de réponse appropriée.
Comme la plupart des contributeurs utilisent un logiciel de messagerie
pour suivre le forum, ils ont encore un accès aisé à ta précédente
question (hier à 18h00 heure de Paris), et quand on sait que bon nombre
d'entre eux passent en revue la totalité des messages (ne serait ce qu'en
diagonale) et plus particulièrement ceux qui n'ont pas encore reçu de
réponse, il est plutôt inutile de reposter régulièrement la question, sauf
à l'enrichir de précisions inédites susceptibles d'exciter le neurone.
;o))
Sauf à être condamné à subir l'accès aux forums via le web, clique sur le
lien présent dans ma signature, ou bien, sur excelabo, visite cette page :
http://www.excelabo.net/mpfe/connexion.php
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"pascal B" a écrit dans le
message de news:Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande.
et en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très
vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour
mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour
mes erreurs.
Salutations
Pascal
Bonjour Pascal,
Rassure toi, tu n'as pas commis d'erreur majeur, si ce n'est celle de
poster plusieurs fois ta question.
Comme tu l'observes à juste titre, MPFE est généralement très réactif ;
cependant il arrive tout de même que personne ne se sente inspiré par une
question, ou ne possède de réponse appropriée.
Comme la plupart des contributeurs utilisent un logiciel de messagerie
pour suivre le forum, ils ont encore un accès aisé à ta précédente
question (hier à 18h00 heure de Paris), et quand on sait que bon nombre
d'entre eux passent en revue la totalité des messages (ne serait ce qu'en
diagonale) et plus particulièrement ceux qui n'ont pas encore reçu de
réponse, il est plutôt inutile de reposter régulièrement la question, sauf
à l'enrichir de précisions inédites susceptibles d'exciter le neurone.
;o))
Sauf à être condamné à subir l'accès aux forums via le web, clique sur le
lien présent dans ma signature, ou bien, sur excelabo, visite cette page :
http://www.excelabo.net/mpfe/connexion.php
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"pascal B" <pascal.baranger@discussion.microsoft.com> a écrit dans le
message de news: emhgftyvEHA.3320@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande.
et en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très
vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour
mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour
mes erreurs.
Salutations
Pascal
Bonjour Pascal,
Rassure toi, tu n'as pas commis d'erreur majeur, si ce n'est celle de
poster plusieurs fois ta question.
Comme tu l'observes à juste titre, MPFE est généralement très réactif ;
cependant il arrive tout de même que personne ne se sente inspiré par une
question, ou ne possède de réponse appropriée.
Comme la plupart des contributeurs utilisent un logiciel de messagerie
pour suivre le forum, ils ont encore un accès aisé à ta précédente
question (hier à 18h00 heure de Paris), et quand on sait que bon nombre
d'entre eux passent en revue la totalité des messages (ne serait ce qu'en
diagonale) et plus particulièrement ceux qui n'ont pas encore reçu de
réponse, il est plutôt inutile de reposter régulièrement la question, sauf
à l'enrichir de précisions inédites susceptibles d'exciter le neurone.
;o))
Sauf à être condamné à subir l'accès aux forums via le web, clique sur le
lien présent dans ma signature, ou bien, sur excelabo, visite cette page :
http://www.excelabo.net/mpfe/connexion.php
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"pascal B" a écrit dans le
message de news:Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande.
et en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très
vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour
mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour
mes erreurs.
Salutations
Pascal
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande.
et en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très
vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour
mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour
mes erreurs.
Salutations
Pascal
Bonjour Pascal,
NON ... tu n'as pas fait d'erreur. Il y a bien les mots-clé et tout et
tout. On ne peut rêver mieux. Il est par ailleurs peu probable que ce que
tu souhaites ne puisse être fait.
En fait, le problème est de démarrer notre 1/2 neurone de bolnde pas
réveillée :o)
Tu as du remarquer que les GC (gentils contributeurs et gentielles
contributrices) du dimanche matin se font peu nombreux/-ses et voguent que
dis-je divaguent dans le HS un peu plus que d'habitude. Si les autres GC
sont comme moi, il vont ou viennent de la douche. Voui, y'a du
laisser-aller, je l'avoue :o)
Pour ma part, je vais (dans l'ordre) faire trempette, casser une graine
puis jeter un z'ieux à ta question ;o)
@+
FxM
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande.
et en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très
vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour
mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour
mes erreurs.
Salutations
Pascal
Bonjour Pascal,
NON ... tu n'as pas fait d'erreur. Il y a bien les mots-clé et tout et
tout. On ne peut rêver mieux. Il est par ailleurs peu probable que ce que
tu souhaites ne puisse être fait.
En fait, le problème est de démarrer notre 1/2 neurone de bolnde pas
réveillée :o)
Tu as du remarquer que les GC (gentils contributeurs et gentielles
contributrices) du dimanche matin se font peu nombreux/-ses et voguent que
dis-je divaguent dans le HS un peu plus que d'habitude. Si les autres GC
sont comme moi, il vont ou viennent de la douche. Voui, y'a du
laisser-aller, je l'avoue :o)
Pour ma part, je vais (dans l'ordre) faire trempette, casser une graine
puis jeter un z'ieux à ta question ;o)
@+
FxM
Bonjour à tous,
ai je commis une erreur ? car je n'obtiens aucune réponses à ma demande.
et en parcourant ce forum j'ai vu qu'il fonctionnait très bien et très
vite, d'où ma question.
si c'est le cas dites le moi et je me corrigerai pour l'avenir. si la
fonction n'existe pas pourriez vous me le dire également, car c'est pour
mon travail.
voilà merci d'avance à vous tous, et je vous prie de me pardonner pour
mes erreurs.
Salutations
Pascal
Bonjour Pascal,
NON ... tu n'as pas fait d'erreur. Il y a bien les mots-clé et tout et
tout. On ne peut rêver mieux. Il est par ailleurs peu probable que ce que
tu souhaites ne puisse être fait.
En fait, le problème est de démarrer notre 1/2 neurone de bolnde pas
réveillée :o)
Tu as du remarquer que les GC (gentils contributeurs et gentielles
contributrices) du dimanche matin se font peu nombreux/-ses et voguent que
dis-je divaguent dans le HS un peu plus que d'habitude. Si les autres GC
sont comme moi, il vont ou viennent de la douche. Voui, y'a du
laisser-aller, je l'avoue :o)
Pour ma part, je vais (dans l'ordre) faire trempette, casser une graine
puis jeter un z'ieux à ta question ;o)
@+
FxM
Re bonjour FxM,
et merci pour ta rapidité. je vais tester la point 2 de suite et te confirme
si j'ai réussi a le faire fonctionner. pour le point 1
le respect de l'ordre c'est ceci :
"ENCODAGE" "DEMANDES INTRODUITES"
A13 = A2 et le suivant A3 et ainsi de suite
B13 = B2 B3
E13 = C2 C3
B8 = D2 D3
E8 = E2 E3
F8 = F2 F3
D30 = G2 G3
D31 = H2 H3
D33 = I2 I3
D35 = J2 J3
G39 = K2 K3
"ENCODAGE" me sert à obtenir et calculer tous les renseignements qui doivent
êtres enregistrés sur "DEMANDES INTRODUITES" pour chaque individus.
voila merci beaucoup
@+
Pascal
Re bonjour FxM,
et merci pour ta rapidité. je vais tester la point 2 de suite et te confirme
si j'ai réussi a le faire fonctionner. pour le point 1
le respect de l'ordre c'est ceci :
"ENCODAGE" "DEMANDES INTRODUITES"
A13 = A2 et le suivant A3 et ainsi de suite
B13 = B2 B3
E13 = C2 C3
B8 = D2 D3
E8 = E2 E3
F8 = F2 F3
D30 = G2 G3
D31 = H2 H3
D33 = I2 I3
D35 = J2 J3
G39 = K2 K3
"ENCODAGE" me sert à obtenir et calculer tous les renseignements qui doivent
êtres enregistrés sur "DEMANDES INTRODUITES" pour chaque individus.
voila merci beaucoup
@+
Pascal
Re bonjour FxM,
et merci pour ta rapidité. je vais tester la point 2 de suite et te confirme
si j'ai réussi a le faire fonctionner. pour le point 1
le respect de l'ordre c'est ceci :
"ENCODAGE" "DEMANDES INTRODUITES"
A13 = A2 et le suivant A3 et ainsi de suite
B13 = B2 B3
E13 = C2 C3
B8 = D2 D3
E8 = E2 E3
F8 = F2 F3
D30 = G2 G3
D31 = H2 H3
D33 = I2 I3
D35 = J2 J3
G39 = K2 K3
"ENCODAGE" me sert à obtenir et calculer tous les renseignements qui doivent
êtres enregistrés sur "DEMANDES INTRODUITES" pour chaque individus.
voila merci beaucoup
@+
Pascal
Lx = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
If IsEmpty(.Cells(lig, colonne)) Then
If NOT IsEmpty(.Cells(lig, colonne)) Then
donc si la cellule n'est PAS vide ...
cher FxM,
Q1:
voici ce que j'ai fait comme tu me l'as dit cela fonctionne mais il me le
place systématiquement sur la ligne 56 en A. Ai je fait une erreur ?
Sub Transfert()
'feuille de départ
feu_dep = "ENCODAGE"
'feuille d'arrivée
feu_arr = "Demandes introduites"
'plage des *cellules* d'entrée, dans l'ordre
arr_dep = Array("A13", "B13", "E13", "B8", "E8", "F8", "D30", "D31",
"D33", "D35", "G39", "G16")
'plage des *colonnes* d'arrivée, dans l'ordre
arr_arr = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K",
"L")
'vérification du nombre d'éléments
If UBound(arr_dep) <> UBound(arr_arr) Then
MsgBox "Erreur dans le nombre d'éléments": Exit Sub
End If
'trouver la dernière ligne de la feuille d'arrivée
With Sheets(feu_arr)
On Error Resume Next
Lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
If Err > 0 Then Err.Clear: Lx = 0
On Error GoTo 0
'faire la copie
For a = 0 To UBound(arr_dep)
Sheets(feu_arr).Range(arr_arr(a) & Lx + 1) =
Sheets(feu_dep).Range(arr_dep(a))
Next a
End With
End Sub
Q2 : elle fonctionne mais fait l'inverse c'est à dire qu'elle copie ceux
pour qui la colonne M est vide et laisse les autres. je suis trop nul pour
trouver ou est le pb si tu veux bien encore m'aider ?
voici la macro :
Sub Enregistrement_accord()
'feuille de départ
feu_dep = "Demandes introduites"
'feuille d'arrivée
feu_arr = "Demandes acceptées"
'colonne à vérifier
colonne = "M"
'avec la feuille de départ
With Sheets(feu_dep)
'l'activer
.Activate
'chercher la dernière ligne et la dernière colonne
Lx = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Cx = .Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
'pour vérifier qu'il y a bien concordance avec la colonne
'à vérifier
plagetout = .Range(.Cells(1, 1), .Cells(Lx, Cx)).Address
col1 = .Range(colonne & ":" & colonne).Address
Set check = Application.Intersect(Range(plagetout), Range(col1))
If check Is Nothing Then MsgBox "Zone incompatibles": Exit Sub
'parcourir toutes les lignes ) partir de la fin
For lig = Lx To 1 Step -1
'si la cellule est vide
If IsEmpty(.Cells(lig, colonne)) Then
'couper
.Rows(lig & ":" & lig).Cut
'aller sur la feuille d'arivée
Sheets(feu_arr).Activate
'chercher la dernière ligne
On Error Resume Next
lig2 = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
col2 = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
If Err > 0 Then Err.Clear: lig2 = 0
On Error GoTo 0
'coller
Range("A" & lig2 + 1).Select
ActiveSheet.Paste
'retourner sur la feuille de départ
.Activate
End If
Next lig
End With
End Sub
encore merci pour le temps que tu me consacre
@+
Lx = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
If IsEmpty(.Cells(lig, colonne)) Then
If NOT IsEmpty(.Cells(lig, colonne)) Then
donc si la cellule n'est PAS vide ...
cher FxM,
Q1:
voici ce que j'ai fait comme tu me l'as dit cela fonctionne mais il me le
place systématiquement sur la ligne 56 en A. Ai je fait une erreur ?
Sub Transfert()
'feuille de départ
feu_dep = "ENCODAGE"
'feuille d'arrivée
feu_arr = "Demandes introduites"
'plage des *cellules* d'entrée, dans l'ordre
arr_dep = Array("A13", "B13", "E13", "B8", "E8", "F8", "D30", "D31",
"D33", "D35", "G39", "G16")
'plage des *colonnes* d'arrivée, dans l'ordre
arr_arr = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K",
"L")
'vérification du nombre d'éléments
If UBound(arr_dep) <> UBound(arr_arr) Then
MsgBox "Erreur dans le nombre d'éléments": Exit Sub
End If
'trouver la dernière ligne de la feuille d'arrivée
With Sheets(feu_arr)
On Error Resume Next
Lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
If Err > 0 Then Err.Clear: Lx = 0
On Error GoTo 0
'faire la copie
For a = 0 To UBound(arr_dep)
Sheets(feu_arr).Range(arr_arr(a) & Lx + 1) =
Sheets(feu_dep).Range(arr_dep(a))
Next a
End With
End Sub
Q2 : elle fonctionne mais fait l'inverse c'est à dire qu'elle copie ceux
pour qui la colonne M est vide et laisse les autres. je suis trop nul pour
trouver ou est le pb si tu veux bien encore m'aider ?
voici la macro :
Sub Enregistrement_accord()
'feuille de départ
feu_dep = "Demandes introduites"
'feuille d'arrivée
feu_arr = "Demandes acceptées"
'colonne à vérifier
colonne = "M"
'avec la feuille de départ
With Sheets(feu_dep)
'l'activer
.Activate
'chercher la dernière ligne et la dernière colonne
Lx = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Cx = .Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
'pour vérifier qu'il y a bien concordance avec la colonne
'à vérifier
plagetout = .Range(.Cells(1, 1), .Cells(Lx, Cx)).Address
col1 = .Range(colonne & ":" & colonne).Address
Set check = Application.Intersect(Range(plagetout), Range(col1))
If check Is Nothing Then MsgBox "Zone incompatibles": Exit Sub
'parcourir toutes les lignes ) partir de la fin
For lig = Lx To 1 Step -1
'si la cellule est vide
If IsEmpty(.Cells(lig, colonne)) Then
'couper
.Rows(lig & ":" & lig).Cut
'aller sur la feuille d'arivée
Sheets(feu_arr).Activate
'chercher la dernière ligne
On Error Resume Next
lig2 = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
col2 = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
If Err > 0 Then Err.Clear: lig2 = 0
On Error GoTo 0
'coller
Range("A" & lig2 + 1).Select
ActiveSheet.Paste
'retourner sur la feuille de départ
.Activate
End If
Next lig
End With
End Sub
encore merci pour le temps que tu me consacre
@+
Lx = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
If IsEmpty(.Cells(lig, colonne)) Then
If NOT IsEmpty(.Cells(lig, colonne)) Then
donc si la cellule n'est PAS vide ...
cher FxM,
Q1:
voici ce que j'ai fait comme tu me l'as dit cela fonctionne mais il me le
place systématiquement sur la ligne 56 en A. Ai je fait une erreur ?
Sub Transfert()
'feuille de départ
feu_dep = "ENCODAGE"
'feuille d'arrivée
feu_arr = "Demandes introduites"
'plage des *cellules* d'entrée, dans l'ordre
arr_dep = Array("A13", "B13", "E13", "B8", "E8", "F8", "D30", "D31",
"D33", "D35", "G39", "G16")
'plage des *colonnes* d'arrivée, dans l'ordre
arr_arr = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K",
"L")
'vérification du nombre d'éléments
If UBound(arr_dep) <> UBound(arr_arr) Then
MsgBox "Erreur dans le nombre d'éléments": Exit Sub
End If
'trouver la dernière ligne de la feuille d'arrivée
With Sheets(feu_arr)
On Error Resume Next
Lx = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
If Err > 0 Then Err.Clear: Lx = 0
On Error GoTo 0
'faire la copie
For a = 0 To UBound(arr_dep)
Sheets(feu_arr).Range(arr_arr(a) & Lx + 1) =
Sheets(feu_dep).Range(arr_dep(a))
Next a
End With
End Sub
Q2 : elle fonctionne mais fait l'inverse c'est à dire qu'elle copie ceux
pour qui la colonne M est vide et laisse les autres. je suis trop nul pour
trouver ou est le pb si tu veux bien encore m'aider ?
voici la macro :
Sub Enregistrement_accord()
'feuille de départ
feu_dep = "Demandes introduites"
'feuille d'arrivée
feu_arr = "Demandes acceptées"
'colonne à vérifier
colonne = "M"
'avec la feuille de départ
With Sheets(feu_dep)
'l'activer
.Activate
'chercher la dernière ligne et la dernière colonne
Lx = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Cx = .Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
'pour vérifier qu'il y a bien concordance avec la colonne
'à vérifier
plagetout = .Range(.Cells(1, 1), .Cells(Lx, Cx)).Address
col1 = .Range(colonne & ":" & colonne).Address
Set check = Application.Intersect(Range(plagetout), Range(col1))
If check Is Nothing Then MsgBox "Zone incompatibles": Exit Sub
'parcourir toutes les lignes ) partir de la fin
For lig = Lx To 1 Step -1
'si la cellule est vide
If IsEmpty(.Cells(lig, colonne)) Then
'couper
.Rows(lig & ":" & lig).Cut
'aller sur la feuille d'arivée
Sheets(feu_arr).Activate
'chercher la dernière ligne
On Error Resume Next
lig2 = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
col2 = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
If Err > 0 Then Err.Clear: lig2 = 0
On Error GoTo 0
'coller
Range("A" & lig2 + 1).Select
ActiveSheet.Paste
'retourner sur la feuille de départ
.Activate
End If
Next lig
End With
End Sub
encore merci pour le temps que tu me consacre
@+
