Ramener le numero de ligne

[ptitepo]

Bjr à tous,
Pour mon projet, j'ai un bouton qui me permet d'ajouter des noms les uns en dessous des autres, et j'aurais besoin d'une fonction qui me ramene le numero de la ligne ou il va être placé. Est ce possible?
Merci à tous.

 

[pierrejean]

Re : Ramener le numero de ligne

bonjour ptitepo

reponse: oui

Si demande suivante= comment ? alors
poser la question : " peux-tu poster un fichier exemple ? "

 

[Guest]

Re : Ramener le numero de ligne

bonjour ptitepo, le forum

Si les données sont en colonne A et rien en dessous et pour une version excel inférieure à 2007:

range("A" & 65536).End(xlUp).offset(1).Row

donnera le prochain numéro de ligne non occupé

A bientôt

EDITION: bonjour Pierre-Jean

 

[ptitepo]

Re : Ramener le numero de ligne

Re
Est ce que je peux integré ta formule à mon code? j'essaye mais ca donne pas grand chose :S

Sub griser()

ligne = Range("A" & 65536).End(xlUp).Offset(1).Row - 1

Sheets(Array("Janv", "Fev", "Mars", "Avr", "Mai", "Juin", "Juil", "Aout", "Sept", "Oct", _
"Nov", "Dec")).Select
Sheets("Janv").Activate
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(JOURSEM(C$5)=1;JOURSEM(C$5)=7;JOURSEM(C$5)=4)"
Selection.FormatConditions(1).Interior.ColorIndex = 15
Selection.AutoFill Destination:=Range("B ligne :AF ligne")
Range ("B ligne :AF ligne"), Type:=xlFillDefault
ActiveWindow.ScrollColumn = 1
End Sub

Ca me grise les mercredis sur la ligne où je vien d'enregistrer le nom sur toutes mes feuilles.

 

[pierrejean]

Re : Ramener le numero de ligne

Re

Salut hasco 🙂

Teste quelque chose comme:

Sub griser()
mois = Array("Janv", "Fev", "Mars", "Avr", "Mai", "Juin", "Juil", "Aout", "Sept", "Oct", _
"Nov", "Dec")
For x = 0 To UBound(mois)
  ligne = Sheets(mois(x)).Range("A65536").End(xlUp).Row
  Sheets(mois(x)).Cells.FormatConditions.Delete
  Sheets(mois(x)).Range("B" & ligne & ":AF" & ligne).FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(JOURSEM(C$5)=1;JOURSEM(C$5)=7;JOURSEM(C$5)=4) "
 Sheets(mois(x)).Range("B" & ligne & ":AF" & ligne).FormatConditions(1).Interior.ColorIndex = 15
Next x
End Sub

 

[ptitepo]

Re : Ramener le numero de ligne

Merci beaucoup à vous 2, il me manquais juste les & !