Allocation dynamique
Fermé
ibrahim
-
11 août 2020 à 20:34
ccm81 Messages postés 10878 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 11 septembre 2024 - 12 août 2020 à 10:56
ccm81 Messages postés 10878 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 11 septembre 2024 - 12 août 2020 à 10:56
2 réponses
via55
Messages postés
14473
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
13 septembre 2024
2 728
11 août 2020 à 21:05
11 août 2020 à 21:05
Bonjour
Exemple pour la colonne B :
Formule matricielle à valider par Ctrl + Maj +Entrée (la formule se met auto entre accolades)
=MAX(SI(ESTVIDE(B:B);0;LIGNE(B:B)))-EQUIV(VRAI;B:B<>"";0)-1=MAX(SI(ESTVIDE(B:B);0;LIGNE(B:B)))-EQUIV(VRAI;B:B<>"";0)-1
Cdlmnt
Via
Exemple pour la colonne B :
Formule matricielle à valider par Ctrl + Maj +Entrée (la formule se met auto entre accolades)
=MAX(SI(ESTVIDE(B:B);0;LIGNE(B:B)))-EQUIV(VRAI;B:B<>"";0)-1=MAX(SI(ESTVIDE(B:B);0;LIGNE(B:B)))-EQUIV(VRAI;B:B<>"";0)-1
Cdlmnt
Via
ccm81
Messages postés
10878
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
11 septembre 2024
2 415
12 août 2020 à 10:56
12 août 2020 à 10:56
Bonjour
Pour compléter la proposition de via55 (salut amical au passage), une solution vba
utilisation pour la colonne A
CompteLignes(A:A)
Cdlmnt
Pour compléter la proposition de via55 (salut amical au passage), une solution vba
utilisation pour la colonne A
CompteLignes(A:A)
Public Function CompteLignes(col As Range)
Dim lideb As Long, lifin As Long, co As String
co = Split(col.Address, ":")(0)
lifin = Range(co & Rows.Count).End(xlUp).Row
lideb = Range(co & 1).End(xlDown).Row
CompteLignes = lifin - lideb + 1
End Function
Cdlmnt
