Bonsoir à tous
C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis
donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y
a aucune macro.
Je dois absolument en réécrire une pour demain.
Je cherche désespérément la formule qui permet de donner à zn la valeur de
la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin.
Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp
---------------------------------------------------
' Déclaration des variables
Dim zn As Integer, i As Integer, y As Integer
' Attribution de valeur à zn
zn = Range("A2").End(xlDown).XXXXXXXX
' Effacer les couleurs éventuelles
Range("B2:N" & zn).Interior.ColorIndex = none
-----------------------------------------------------
Un grand merci
Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par
courriel privé, ce serait chouette.
--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net
Bonsoir à tous C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y a aucune macro. Je dois absolument en réécrire une pour demain. Je cherche désespérément la formule qui permet de donner à zn la valeur de la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin. Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp --------------------------------------------------- ' Déclaration des variables Dim zn As Integer, i As Integer, y As Integer ' Attribution de valeur à zn zn = Range("A2").End(xlDown).XXXXXXXX ' Effacer les couleurs éventuelles Range("B2:N" & zn).Interior.ColorIndex = none ----------------------------------------------------- Un grand merci Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par courriel privé, ce serait chouette.
Salut Jacquouille,
Tout simplement :
Zn = Range("A2").End(xlDown).Row
Bonsoir à tous
C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je
suis donc obligé de me connecter via le PC portable de Minou, où,
bien sûr il n'y a aucune macro.
Je dois absolument en réécrire une pour demain.
Je cherche désespérément la formule qui permet de donner à zn la
valeur de la dernière ligne d'une plage. Je me souviens du début,
mais pas de la fin. Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp
---------------------------------------------------
' Déclaration des variables
Dim zn As Integer, i As Integer, y As Integer
' Attribution de valeur à zn
zn = Range("A2").End(xlDown).XXXXXXXX
' Effacer les couleurs éventuelles
Range("B2:N" & zn).Interior.ColorIndex = none
-----------------------------------------------------
Un grand merci
Et plus grand encore si les habitués pouvaient me renvoyer leur
adresse par courriel privé, ce serait chouette.
Bonsoir à tous C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y a aucune macro. Je dois absolument en réécrire une pour demain. Je cherche désespérément la formule qui permet de donner à zn la valeur de la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin. Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp --------------------------------------------------- ' Déclaration des variables Dim zn As Integer, i As Integer, y As Integer ' Attribution de valeur à zn zn = Range("A2").End(xlDown).XXXXXXXX ' Effacer les couleurs éventuelles Range("B2:N" & zn).Interior.ColorIndex = none ----------------------------------------------------- Un grand merci Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par courriel privé, ce serait chouette.
e.lecrenier
Merci Et dire que mon dico me disait Line et que cela ne fonctionnait pas. Merci
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
"Nicolas B." a écrit dans le message de news:%
Salut Jacquouille,
Tout simplement : Zn = Range("A2").End(xlDown).Row
Bonsoir à tous C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y a aucune macro. Je dois absolument en réécrire une pour demain. Je cherche désespérément la formule qui permet de donner à zn la valeur de la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin. Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp --------------------------------------------------- ' Déclaration des variables Dim zn As Integer, i As Integer, y As Integer ' Attribution de valeur à zn zn = Range("A2").End(xlDown).XXXXXXXX ' Effacer les couleurs éventuelles Range("B2:N" & zn).Interior.ColorIndex = none ----------------------------------------------------- Un grand merci Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par courriel privé, ce serait chouette.
Merci
Et dire que mon dico me disait Line et que cela ne fonctionnait pas.
Merci
--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%23mTUSenlDHA.2080@TK2MSFTNGP10.phx.gbl...
Salut Jacquouille,
Tout simplement :
Zn = Range("A2").End(xlDown).Row
Bonsoir à tous
C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je
suis donc obligé de me connecter via le PC portable de Minou, où,
bien sûr il n'y a aucune macro.
Je dois absolument en réécrire une pour demain.
Je cherche désespérément la formule qui permet de donner à zn la
valeur de la dernière ligne d'une plage. Je me souviens du début,
mais pas de la fin. Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp
---------------------------------------------------
' Déclaration des variables
Dim zn As Integer, i As Integer, y As Integer
' Attribution de valeur à zn
zn = Range("A2").End(xlDown).XXXXXXXX
' Effacer les couleurs éventuelles
Range("B2:N" & zn).Interior.ColorIndex = none
-----------------------------------------------------
Un grand merci
Et plus grand encore si les habitués pouvaient me renvoyer leur
adresse par courriel privé, ce serait chouette.
Bonsoir à tous C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y a aucune macro. Je dois absolument en réécrire une pour demain. Je cherche désespérément la formule qui permet de donner à zn la valeur de la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin. Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp --------------------------------------------------- ' Déclaration des variables Dim zn As Integer, i As Integer, y As Integer ' Attribution de valeur à zn zn = Range("A2").End(xlDown).XXXXXXXX ' Effacer les couleurs éventuelles Range("B2:N" & zn).Interior.ColorIndex = none ----------------------------------------------------- Un grand merci Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par courriel privé, ce serait chouette.
Denis Michon
bonjour e.lecrenier,
Tu dois adapter le nom de la feuille. '------------------- Sub Dernièreligne()
' Déclaration des variables Dim zn As Long ' Attribution de valeur à zn With Worksheets("Feuil1") 'Dernière ligne dans les colonnes B à N zn = .Columns("b:N").Find("*", SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row ' Effacer les couleurs éventuelles .Range("B2:N" & zn).Interior.ColorIndex = xlAutomatic End With
End Sub '-------------------
Salutations!
"e.lecrenier" a écrit dans le message de news:3f92e2bd$0$310$ Bonsoir à tous C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y a aucune macro. Je dois absolument en réécrire une pour demain. Je cherche désespérément la formule qui permet de donner à zn la valeur de la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin. Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp --------------------------------------------------- ' Déclaration des variables Dim zn As Integer, i As Integer, y As Integer ' Attribution de valeur à zn zn = Range("A2").End(xlDown).XXXXXXXX ' Effacer les couleurs éventuelles Range("B2:N" & zn).Interior.ColorIndex = none ----------------------------------------------------- Un grand merci Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par courriel privé, ce serait chouette.
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
bonjour e.lecrenier,
Tu dois adapter le nom de la feuille.
'-------------------
Sub Dernièreligne()
' Déclaration des variables
Dim zn As Long
' Attribution de valeur à zn
With Worksheets("Feuil1")
'Dernière ligne dans les colonnes B à N
zn = .Columns("b:N").Find("*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
' Effacer les couleurs éventuelles
.Range("B2:N" & zn).Interior.ColorIndex = xlAutomatic
End With
End Sub
'-------------------
Salutations!
"e.lecrenier" <e.lecrenier@skynet.be> a écrit dans le message de news:3f92e2bd$0$310$ba620e4c@reader1.news.skynet.be...
Bonsoir à tous
C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis
donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y
a aucune macro.
Je dois absolument en réécrire une pour demain.
Je cherche désespérément la formule qui permet de donner à zn la valeur de
la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin.
Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp
---------------------------------------------------
' Déclaration des variables
Dim zn As Integer, i As Integer, y As Integer
' Attribution de valeur à zn
zn = Range("A2").End(xlDown).XXXXXXXX
' Effacer les couleurs éventuelles
Range("B2:N" & zn).Interior.ColorIndex = none
-----------------------------------------------------
Un grand merci
Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par
courriel privé, ce serait chouette.
--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net
Tu dois adapter le nom de la feuille. '------------------- Sub Dernièreligne()
' Déclaration des variables Dim zn As Long ' Attribution de valeur à zn With Worksheets("Feuil1") 'Dernière ligne dans les colonnes B à N zn = .Columns("b:N").Find("*", SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row ' Effacer les couleurs éventuelles .Range("B2:N" & zn).Interior.ColorIndex = xlAutomatic End With
End Sub '-------------------
Salutations!
"e.lecrenier" a écrit dans le message de news:3f92e2bd$0$310$ Bonsoir à tous C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y a aucune macro. Je dois absolument en réécrire une pour demain. Je cherche désespérément la formule qui permet de donner à zn la valeur de la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin. Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp --------------------------------------------------- ' Déclaration des variables Dim zn As Integer, i As Integer, y As Integer ' Attribution de valeur à zn zn = Range("A2").End(xlDown).XXXXXXXX ' Effacer les couleurs éventuelles Range("B2:N" & zn).Interior.ColorIndex = none ----------------------------------------------------- Un grand merci Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par courriel privé, ce serait chouette.
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
e.lecrenier
Bonsoir Quand c'est signé "Jacquouille" et que tu réponds à E.Lecrenier, tu peux dire "Minou" comme tout le monde, because que c'est son pécé paske le mien estkaput. -))) Merci
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
"Denis Michon" a écrit dans le message de news:NRBkb.6971$
bonjour e.lecrenier,
Tu dois adapter le nom de la feuille. '------------------- Sub Dernièreligne()
' Déclaration des variables Dim zn As Long ' Attribution de valeur à zn With Worksheets("Feuil1") 'Dernière ligne dans les colonnes B à N zn = .Columns("b:N").Find("*", SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row ' Effacer les couleurs éventuelles .Range("B2:N" & zn).Interior.ColorIndex = xlAutomatic End With
End Sub '-------------------
Salutations!
"e.lecrenier" a écrit dans le message de news:3f92e2bd$0$310$
Bonsoir à tous C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y
a aucune macro. Je dois absolument en réécrire une pour demain. Je cherche désespérément la formule qui permet de donner à zn la valeur de la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin.
Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp --------------------------------------------------- ' Déclaration des variables Dim zn As Integer, i As Integer, y As Integer ' Attribution de valeur à zn zn = Range("A2").End(xlDown).XXXXXXXX ' Effacer les couleurs éventuelles Range("B2:N" & zn).Interior.ColorIndex = none ----------------------------------------------------- Un grand merci Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par
courriel privé, ce serait chouette.
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
Bonsoir
Quand c'est signé "Jacquouille" et que tu réponds à E.Lecrenier, tu peux
dire "Minou" comme tout le monde, because que c'est son pécé paske le mien
estkaput. -)))
Merci
--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:NRBkb.6971$V11.6505@charlie.risq.qc.ca...
bonjour e.lecrenier,
Tu dois adapter le nom de la feuille.
'-------------------
Sub Dernièreligne()
' Déclaration des variables
Dim zn As Long
' Attribution de valeur à zn
With Worksheets("Feuil1")
'Dernière ligne dans les colonnes B à N
zn = .Columns("b:N").Find("*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
' Effacer les couleurs éventuelles
.Range("B2:N" & zn).Interior.ColorIndex = xlAutomatic
End With
End Sub
'-------------------
Salutations!
"e.lecrenier" <e.lecrenier@skynet.be> a écrit dans le message de
news:3f92e2bd$0$310$ba620e4c@reader1.news.skynet.be...
Bonsoir à tous
C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis
donc obligé de me connecter via le PC portable de Minou, où, bien sûr il
n'y
a aucune macro.
Je dois absolument en réécrire une pour demain.
Je cherche désespérément la formule qui permet de donner à zn la valeur de
la dernière ligne d'une plage. Je me souviens du début, mais pas de la
fin.
Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp
---------------------------------------------------
' Déclaration des variables
Dim zn As Integer, i As Integer, y As Integer
' Attribution de valeur à zn
zn = Range("A2").End(xlDown).XXXXXXXX
' Effacer les couleurs éventuelles
Range("B2:N" & zn).Interior.ColorIndex = none
-----------------------------------------------------
Un grand merci
Et plus grand encore si les habitués pouvaient me renvoyer leur adresse
par
courriel privé, ce serait chouette.
--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net
Bonsoir Quand c'est signé "Jacquouille" et que tu réponds à E.Lecrenier, tu peux dire "Minou" comme tout le monde, because que c'est son pécé paske le mien estkaput. -))) Merci
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
"Denis Michon" a écrit dans le message de news:NRBkb.6971$
bonjour e.lecrenier,
Tu dois adapter le nom de la feuille. '------------------- Sub Dernièreligne()
' Déclaration des variables Dim zn As Long ' Attribution de valeur à zn With Worksheets("Feuil1") 'Dernière ligne dans les colonnes B à N zn = .Columns("b:N").Find("*", SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row ' Effacer les couleurs éventuelles .Range("B2:N" & zn).Interior.ColorIndex = xlAutomatic End With
End Sub '-------------------
Salutations!
"e.lecrenier" a écrit dans le message de news:3f92e2bd$0$310$
Bonsoir à tous C'est l'allali, l'alimentation de mon PC a rendu l'âme ce samedi. Je suis donc obligé de me connecter via le PC portable de Minou, où, bien sûr il n'y
a aucune macro. Je dois absolument en réécrire une pour demain. Je cherche désespérément la formule qui permet de donner à zn la valeur de la dernière ligne d'une plage. Je me souviens du début, mais pas de la fin.
Pouvez-vous MAY DAY - MAY DAY - MAY DAY svp --------------------------------------------------- ' Déclaration des variables Dim zn As Integer, i As Integer, y As Integer ' Attribution de valeur à zn zn = Range("A2").End(xlDown).XXXXXXXX ' Effacer les couleurs éventuelles Range("B2:N" & zn).Interior.ColorIndex = none ----------------------------------------------------- Un grand merci Et plus grand encore si les habitués pouvaient me renvoyer leur adresse par
courriel privé, ce serait chouette.
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
sabatier
ben, chat alors! on avait déjà "zaza", nous voilà maintenant avec "minou"... jps (wallon auvergnat)
e.lecrenier a écrit:
Bonsoir Quand c'est signé "Jacquouille" et que tu réponds à E.Lecrenier, tu peux dire "Minou" comme tout le monde, because que c'est son pécé paske le mien estkaput. -))) Merci
-- NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire en bal perso....merci
ben, chat alors! on avait déjà "zaza", nous voilà maintenant avec "minou"...
jps (wallon auvergnat)
e.lecrenier a écrit:
Bonsoir
Quand c'est signé "Jacquouille" et que tu réponds à E.Lecrenier, tu peux
dire "Minou" comme tout le monde, because que c'est son pécé paske le mien
estkaput. -)))
Merci
--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci
ben, chat alors! on avait déjà "zaza", nous voilà maintenant avec "minou"... jps (wallon auvergnat)
e.lecrenier a écrit:
Bonsoir Quand c'est signé "Jacquouille" et que tu réponds à E.Lecrenier, tu peux dire "Minou" comme tout le monde, because que c'est son pécé paske le mien estkaput. -))) Merci
-- NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire en bal perso....merci
