XL 2010 demande info pour compiler donnees

Dugenou

XLDnaute Barbatruc

• 9 Novembre 2021

• #2

Bonjour,
pas de partie verte : en colonne AO ?
Si c'est le cas : en AO81 : =SIERREUR(INDEX($AE$1:$AE$100;PETITE.VALEUR(SI($AD$83:$AD$99;LIGNE($AD$83:$AD$99));LIGNE(1:1)));"")
à valider en matriciel et recopier vers le bas

Cordialement

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 9 Novembre 2021

• #3

Bonjour,
Ci-joint ton document,
Je suis passé par macro c'est plus simple. J'ai viré tes cases a cocher qui sont énergivores, remplacées par des simples x.
Actualiser avec le bouton en dessous des tableaux.
A +

 

Pièces jointes

• blt.xlsm

  44.3 KB · Affichages: 9

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Novembre 2021

• #4

Bonjour @bouligan ,@Dugenou , @Wayki

Il faudrait rajouter en tête de module pour s'affranchir de la casse....😉

Option Compare Text

Cliquez pour agrandir...

@Phil69970

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 9 Novembre 2021

• #5

Entre "x" et "X" ?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Novembre 2021

• #6

oui

VB:

Option Compare Text
Sub test()
Dim cellule As Range
Fin_S = Range("S" & Rows.Count).End(xlUp).Row
Fin_X = Range("X" & Rows.Count).End(xlUp).Row
'**** Le reste de ton code

@Phil69970

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 9 Novembre 2021

• #7

Ok je connaissais pas c'est toujours bon à prendre 😉

 

Vote positif 0 Vote négatif

B

bouligan

XLDnaute Nouveau

• 9 Novembre 2021

• #8

Bonjour a vous tous
Un énorme merci
Je regarde ca au boulot Demain.
Et vraiment merci beaucoup

 

Vote positif 0 Vote négatif