J'ai donc la formule : =SI(LC(1)<>"";L(-1)C+1;"") dans les cellules de
la première colonne...
Elle permet d'afficher dans la colonne 1le chiffre du dessus +1 si on a
quelque chose dans la colonne 2.
Le soucis est que j'aurai au moins 10 000 lignes renseignées à terme...
Si je mets la formule =SI(LC(1)<>"";L(-1)C+1;"") dans les 20000
premières cellules de la colonne 1... Excel galère ! surtout pour
demander une mise en page même s'il n'y a presque rien à afficher !!!!
N'y a-t-il pas moyen d'indiquer proprement à excel qu'une formule est
valable pour tout une colonne ?
Je ne connaissais pas les procédures événementielles !
Par contre, ça se trouve ou ? Je vois pas la procédure... Je vois juste que ça marche !
:D
Philippe
Drakko
Et avec une petite proc évènementielle ?
http://cjoint.com/?isp5mkA8yg
AV
C'est mangifique ! Tu es un Dieu vivant !
Je ne connaissais pas les procédures événementielles !
Par contre, ça se trouve ou ? Je vois pas la procédure... Je vois juste que ça marche !
:D
Philippe tient, c'est pas ce truc là ? :D
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Column <> 2 Then Exit Sub y = zz.Row: x = [A65536].End(3) If IsNumeric(x) Then Cells(y, "A") = x + 1 Else: Cells(y, "A") = 1 End If End Sub
Et avec une petite proc évènementielle ?
http://cjoint.com/?isp5mkA8yg
AV
C'est mangifique ! Tu es un Dieu vivant !
Je ne connaissais pas les procédures événementielles !
Par contre, ça se trouve ou ? Je vois pas la procédure... Je vois juste
que ça marche !
:D
Philippe
tient, c'est pas ce truc là ? :D
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 2 Then Exit Sub
y = zz.Row: x = [A65536].End(3)
If IsNumeric(x) Then
Cells(y, "A") = x + 1
Else: Cells(y, "A") = 1
End If
End Sub
Je ne connaissais pas les procédures événementielles !
Par contre, ça se trouve ou ? Je vois pas la procédure... Je vois juste que ça marche !
:D
Philippe tient, c'est pas ce truc là ? :D
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Column <> 2 Then Exit Sub y = zz.Row: x = [A65536].End(3) If IsNumeric(x) Then Cells(y, "A") = x + 1 Else: Cells(y, "A") = 1 End If End Sub
AV
Tu es un Dieu vivant ! Mieux vaut ça qu'être un homme mort !
Par contre, ça se trouve ou ? Je vois pas la procédure... Je vois juste que ça marche !
Clic droit sur le nom de l'onglet > visualiser le code ......... AV
Tu es un Dieu vivant !
Mieux vaut ça qu'être un homme mort !
Par contre, ça se trouve ou ? Je vois pas la procédure... Je vois juste
que ça marche !
Clic droit sur le nom de l'onglet > visualiser le code
.........
AV
