Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" a écrit dans le message de
news:Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" <no.spam.patrick.fredin@iquebec.com> a écrit dans le message de
news: 512AF6CF-2F6E-4A21-AA88-ECF9336FFA02@microsoft.com...
Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" a écrit dans le message de
news:Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
Merci pour la suggestion mais cela ne change rien.
--
Patrick
"Youky" wrote:Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" a écrit dans le message de
news:Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai
supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le
fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
Merci pour la suggestion mais cela ne change rien.
--
Patrick
"Youky" wrote:
Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" <no.spam.patrick.fredin@iquebec.com> a écrit dans le message de
news: 512AF6CF-2F6E-4A21-AA88-ECF9336FFA02@microsoft.com...
Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai
supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le
fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
Merci pour la suggestion mais cela ne change rien.
--
Patrick
"Youky" wrote:Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" a écrit dans le message de
news:Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai
supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le
fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
bonjour patrick
alors exécute cette proc du Seigneur d'Aniche (il se reconnaîtra, lui, le
plus fidèle de mes ouailles nordistes)
HTH
Mgr T.B.
Sub NettoieSelonGD()
Dim sht As Worksheet, DCell As Range, Calc As Long, Rien As String, _
Avant As Double, Plage As Range
On Error Resume Next
Calc = Application.Calculation ' ---- mémorisation de l'état de recalcul
'------------------------------------------------------------
MsgBox "Pour le classeur actif : " _
& Chr(10) & ActiveWorkbook.FullName _
& Chr(10) & "dans chaque feuille de calcul" _
& Chr(10) & "recherche la zone contenant des données," _
& Chr(10) & "réinitialise la dernière cellule utilisée" _
& Chr(10) & "et optimise la taille du fichier Excel", _
vbInformation, _
"d'après LL par "
'-------------------------------------------------------------
MsgBox "Taille initiale de ce classeur en octets" _
& Chr(10) & FileLen(ActiveWorkbook.FullName), _
vbInformation, ActiveWorkbook.FullName
'------------------------------------------------------------
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = True
End With
'-------------------- le traitement
For Each sht In Worksheets
Avant = sht.UsedRange.Cells.Count
Application.StatusBar = sht.Name & "-" & sht.UsedRange.Address
'-------------------Traitement de la zone trouvée
If sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(sht.[A1]) Then
Set DCell = sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
'----------------Suppression des lignes inutilisées
If Not DCell Is Nothing Then
sht.Range(DCell, sht.Cells([A:A].Count, 1)).EntireRow.Delete
Set DCell = Nothing
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
'----------------Suppression des colonnes inutilisées
If Not DCell Is Nothing Then sht.Range(DCell,
sht.[IV1]).EntireColumn.Delete
End If
Rien = sht.UsedRange.Address
End If
ActiveWorkbook.Save
'---------------------Message pour la feuille traitée
MsgBox "Nom de la feuille de calcul :" _
& Chr(10) & sht.Name _
& Chr(10) & Format(sht.UsedRange.Cells.Count / Avant, "0.00%") & "
de la taille initiale", _
vbInformation, ActiveWorkbook.FullName
Next sht
'--------------------Message fin de traitement
MsgBox "Taille optimisée de ce classeur en octets " & Chr(10) &
FileLen(ActiveWorkbook.FullName), _
vbInformation, _
ActiveWorkbook.FullNameActive
'--------------------
Application.StatusBar = False
Application.Calculation = Calc
End Sub
"Patrick" a écrit dans le message de
news:Merci pour la suggestion mais cela ne change rien.
--
Patrick
"Youky" wrote:Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" a écrit dans le message de
news:Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai
supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le
fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
bonjour patrick
alors exécute cette proc du Seigneur d'Aniche (il se reconnaîtra, lui, le
plus fidèle de mes ouailles nordistes)
HTH
Mgr T.B.
Sub NettoieSelonGD()
Dim sht As Worksheet, DCell As Range, Calc As Long, Rien As String, _
Avant As Double, Plage As Range
On Error Resume Next
Calc = Application.Calculation ' ---- mémorisation de l'état de recalcul
'------------------------------------------------------------
MsgBox "Pour le classeur actif : " _
& Chr(10) & ActiveWorkbook.FullName _
& Chr(10) & "dans chaque feuille de calcul" _
& Chr(10) & "recherche la zone contenant des données," _
& Chr(10) & "réinitialise la dernière cellule utilisée" _
& Chr(10) & "et optimise la taille du fichier Excel", _
vbInformation, _
"d'après LL par GeeDee@m6net.fr"
'-------------------------------------------------------------
MsgBox "Taille initiale de ce classeur en octets" _
& Chr(10) & FileLen(ActiveWorkbook.FullName), _
vbInformation, ActiveWorkbook.FullName
'------------------------------------------------------------
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = True
End With
'-------------------- le traitement
For Each sht In Worksheets
Avant = sht.UsedRange.Cells.Count
Application.StatusBar = sht.Name & "-" & sht.UsedRange.Address
'-------------------Traitement de la zone trouvée
If sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(sht.[A1]) Then
Set DCell = sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
'----------------Suppression des lignes inutilisées
If Not DCell Is Nothing Then
sht.Range(DCell, sht.Cells([A:A].Count, 1)).EntireRow.Delete
Set DCell = Nothing
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
'----------------Suppression des colonnes inutilisées
If Not DCell Is Nothing Then sht.Range(DCell,
sht.[IV1]).EntireColumn.Delete
End If
Rien = sht.UsedRange.Address
End If
ActiveWorkbook.Save
'---------------------Message pour la feuille traitée
MsgBox "Nom de la feuille de calcul :" _
& Chr(10) & sht.Name _
& Chr(10) & Format(sht.UsedRange.Cells.Count / Avant, "0.00%") & "
de la taille initiale", _
vbInformation, ActiveWorkbook.FullName
Next sht
'--------------------Message fin de traitement
MsgBox "Taille optimisée de ce classeur en octets " & Chr(10) &
FileLen(ActiveWorkbook.FullName), _
vbInformation, _
ActiveWorkbook.FullNameActive
'--------------------
Application.StatusBar = False
Application.Calculation = Calc
End Sub
"Patrick" <no.spam.patrick.fredin@iquebec.com> a écrit dans le message de
news: 227778CA-9E1A-4607-B1C8-E6F0F38584FF@microsoft.com...
Merci pour la suggestion mais cela ne change rien.
--
Patrick
"Youky" wrote:
Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" <no.spam.patrick.fredin@iquebec.com> a écrit dans le message de
news: 512AF6CF-2F6E-4A21-AA88-ECF9336FFA02@microsoft.com...
Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai
supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le
fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
bonjour patrick
alors exécute cette proc du Seigneur d'Aniche (il se reconnaîtra, lui, le
plus fidèle de mes ouailles nordistes)
HTH
Mgr T.B.
Sub NettoieSelonGD()
Dim sht As Worksheet, DCell As Range, Calc As Long, Rien As String, _
Avant As Double, Plage As Range
On Error Resume Next
Calc = Application.Calculation ' ---- mémorisation de l'état de recalcul
'------------------------------------------------------------
MsgBox "Pour le classeur actif : " _
& Chr(10) & ActiveWorkbook.FullName _
& Chr(10) & "dans chaque feuille de calcul" _
& Chr(10) & "recherche la zone contenant des données," _
& Chr(10) & "réinitialise la dernière cellule utilisée" _
& Chr(10) & "et optimise la taille du fichier Excel", _
vbInformation, _
"d'après LL par "
'-------------------------------------------------------------
MsgBox "Taille initiale de ce classeur en octets" _
& Chr(10) & FileLen(ActiveWorkbook.FullName), _
vbInformation, ActiveWorkbook.FullName
'------------------------------------------------------------
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = True
End With
'-------------------- le traitement
For Each sht In Worksheets
Avant = sht.UsedRange.Cells.Count
Application.StatusBar = sht.Name & "-" & sht.UsedRange.Address
'-------------------Traitement de la zone trouvée
If sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(sht.[A1]) Then
Set DCell = sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
'----------------Suppression des lignes inutilisées
If Not DCell Is Nothing Then
sht.Range(DCell, sht.Cells([A:A].Count, 1)).EntireRow.Delete
Set DCell = Nothing
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
'----------------Suppression des colonnes inutilisées
If Not DCell Is Nothing Then sht.Range(DCell,
sht.[IV1]).EntireColumn.Delete
End If
Rien = sht.UsedRange.Address
End If
ActiveWorkbook.Save
'---------------------Message pour la feuille traitée
MsgBox "Nom de la feuille de calcul :" _
& Chr(10) & sht.Name _
& Chr(10) & Format(sht.UsedRange.Cells.Count / Avant, "0.00%") & "
de la taille initiale", _
vbInformation, ActiveWorkbook.FullName
Next sht
'--------------------Message fin de traitement
MsgBox "Taille optimisée de ce classeur en octets " & Chr(10) &
FileLen(ActiveWorkbook.FullName), _
vbInformation, _
ActiveWorkbook.FullNameActive
'--------------------
Application.StatusBar = False
Application.Calculation = Calc
End Sub
"Patrick" a écrit dans le message de
news:Merci pour la suggestion mais cela ne change rien.
--
Patrick
"Youky" wrote:Salut
une solution
Va en Editeur VBA >Affichage>fenetre Execution
tape cette 1ere ligne et Entrer ensuite la 2eme ligne et Entrer
Rows("14:65536").clear
columns("K:IV").clear
Youky
"Patrick" a écrit dans le message de
news:Bonjour,
Quand je fais [Ctrl]+[Fin], la cellule devient "L65536C243". J'ai
supprimé
plusieurs les lignes et les colonnes inutiles, j'ai sauvegardé le
fichier
mais malgré tout cela, la dernière cellule reste toujours la même. Que
puis-je faire pour que la dernière soit la vraie dernière "L14C10".
Merci.
--
Patrick
l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))
Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :
l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))
Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))
Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))
Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :
l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))
Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))
Bonjour Mgr,
Si mon message précédent s'avère fonder, j'espère que Mgr
fera son chemin de croix pour expier sa faute ... juste cela !!!
;-))
"Mgr Banni" a écrit dans le message de news:
dis donc, michel le québécois, t'as pas fini d'embêter l'ami GD, hein?
tu sais que le goupillon, ça ne sert pas qu'à diffiuser de l'encens ; si
tu
le fais tourner un peu vite, il devient une belle fronde capable de
traverser l'atlantique
allez ouste, 3 Ave et 5 Pater en attendant le scud diocésain
Mgr T.B.
"Modeste" a écrit dans le message de news:
%Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder,
SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))
Bonjour Mgr,
Si mon message précédent s'avère fonder, j'espère que Mgr
fera son chemin de croix pour expier sa faute ... juste cela !!!
;-))
"Mgr Banni" <banni@lacurie.va> a écrit dans le message de news:
ulkdQmVbIHA.5980@TK2MSFTNGP04.phx.gbl...
dis donc, michel le québécois, t'as pas fini d'embêter l'ami GD, hein?
tu sais que le goupillon, ça ne sert pas qu'à diffiuser de l'encens ; si
tu
le fais tourner un peu vite, il devient une belle fronde capable de
traverser l'atlantique
allez ouste, 3 Ave et 5 Pater en attendant le scud diocésain
Mgr T.B.
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23mHBUQVbIHA.1376@TK2MSFTNGP02.phx.gbl...
Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :
l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder,
SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))
Bonjour Mgr,
Si mon message précédent s'avère fonder, j'espère que Mgr
fera son chemin de croix pour expier sa faute ... juste cela !!!
;-))
"Mgr Banni" a écrit dans le message de news:
dis donc, michel le québécois, t'as pas fini d'embêter l'ami GD, hein?
tu sais que le goupillon, ça ne sert pas qu'à diffiuser de l'encens ; si
tu
le fais tourner un peu vite, il devient une belle fronde capable de
traverser l'atlantique
allez ouste, 3 Ave et 5 Pater en attendant le scud diocésain
Mgr T.B.
"Modeste" a écrit dans le message de news:
%Bonsour® MichDenis avec ferveur ;o))) vous nous disiez :l'ami GD a oublié de définir
un paramêtre dans cette ligne de code :
Set DCell = sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
????
expression.Find(What, After, LookIn, LookAt, SearchOrder,
SearchDirection,
MatchCase, MatchByte, SearchFormat)
What = "*"
After = facultatif Si vous ne spécifiez pas cet argument, la recherche
commence après la cellule située dans le coin supérieur gauche de la
plage.
LookIn = facultatif (Dans les 2 cas (xlvalues et xlformulas), la méthode
find trouvera. d 'apres une intervention de MichDenis ;o)))
sauf à préciser explicitement xlValues ce qui n'est pas le cas ici....
LookAt = facultatif
SearchOrder = xlByColumns
SearchDirection = xlPrevious
MatchCase = facultatif (False par défaut)
MatchByte = facultatif (False par défaut)
SearchFormat = facultatif
;o)))
Modestement je ne me suis inspiré que de ça :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/476422b1ec81b96f/b0f738236b54525d?hl=fr&lnk=st&q=Michdenis+Find+longre#b0f738236b54525d
;o)))
6 juin 2004 23:30 MichDenis
--
--
@+
;o)))