Selectionner une plage jusqu'a la dernière cellule non vide dans une fonction

pierrejean

XLDnaute Barbatruc

• 19 Mai 2017

• #2

Bonjour Karlito

A tester:
"=IF(OR(R[-1002]C=bdd_sinistre!K3:K" & sheets("bbd_sinistre").range("K" & rows.Count).end(xlup).row & "),R[-1002]C-Lancement!R9C1,"""")"

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 19 Mai 2017

• #3

Bonjour Karlito,

Range("K3:K" & Range("K65535").End(xlUp).Row).Select

à+
Philippe

Edit:
Bonjour PierreJean

 

Vote positif 0 Vote négatif

K

Karlito91170

XLDnaute Nouveau

• 19 Mai 2017

• #4

Philippe

Ta procédure fonctionne très bien mais lorsque je souhaite l'intégrer dans ma fonction un message d'erreur apparaît "erreur de compilation attendu : fin d'instruction"

"=IF(OR(R[-1002]C=bdd_sinistre!Range("K3:K" & Range("K65535").End(xlUp).Row).Select),R[-1002]C-Lancement!R9C1,"""")"

---------------------------------------------------------------------

Pierre Jean

Même problème avec un message d'erreur différent "erreur d'exécution 9 l'indice n'appartient pas à la sélection

Merci à vous

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Mai 2017

• #5

Re
Fichier exemple S.T.P

 

Vote positif 0 Vote négatif

K

Karlito91170

XLDnaute Nouveau

• 19 Mai 2017

• #6

Ci joint une version test du fichier

 

Pièces jointes

• Bt_test.xlsm

  3 MB · Affichages: 77

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Mai 2017

• #7

Re
Je ne suis pas spécialiste en formules . Je pense que l’écriture de la formule telle que tu la souhaites est bien faite mais qu'Excel en conteste la validité
Conseil: Ecrit en direct une formule valide et on pourra alors te fournir le code pour l'ecrire

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Mai 2017

• #8

Re,

C'est normal que ça foire car il n'y a pas de "Feuil1",
La feuille 1 se nomme "Lancement"

Remplace donc:

Code:

'Worksheets("Feuil1").Range(Cells(3, 11), Cells(Worksheets("Feuil1").Range("K" & Rows.Count).End(xlUp).Row, 11)).Select

Par:

Code:

Worksheets("Lancement").Select
Worksheets("Lancement").Range(Cells(3, 11), Cells(Worksheets("Lancement").Range("K" & Rows.Count).End(xlUp).Row, 11)).Select

à+
Philippe

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Mai 2017

• #9

Re
@Philippe

Dans la formule a copier il est fait mention de la feuille bdd_sinistre qui existe bien
Il n'y a que toi qui évoque une Feuil1

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Mai 2017

• #10

Bonjour PierreJean,

pierrejean à dit:

Re
@Philippe

Dans la formule a copier il est fait mention de la feuille bdd_sinistre qui existe bien
Il n'y a que toi qui évoque une Feuil1

Cliquez pour agrandir...

Ma réponse est dictée par le code que j'ai découvert dans le fichier joint au post#6 ce code ne fonctionne pas à cause du nom de la feuille.

Vu le manque de précision dans la demande, il est possible que nous soyons tous deux à côté de la réponse attendue

à+
Philippe

 

Vote positif 0 Vote négatif

K

Karlito91170

XLDnaute Nouveau

• 22 Mai 2017

• #11

Rebonjour

Malheureusement Philippe, vous êtes dans le mauvais module, ma procédure se trouve dans l'onglet "retraitement_réass"

Pierre Jean voici la formule sur excel

=si(ou(C2=bdd_sinistre!J3:J31); C2 -lancement!A9; "")

Je vais essayer d'expliciter au maximum

Je souhaite que ma procédure compare la cellule C2 à une base de données dans l'onglet bdd_sinistre.
Si C2 se trouve dans la base de données alors il faut retrancher à C2 un montant inscrit dans l'onglet lancement (A9)
Dans le cas contraire (si C2 ne figure pas dans la base de données) alors il faut laisser la cellule vide

A ce jour la formule fonctionne, mais la plage de cellules correspond à la base de données (dans l'exemple ci dessous J3:J31) est fixe .
Je souhaiterai par conséquent qu'elle sélectionne les montants de J3 jusqu'à la dernière cellule non vide.

J'espère avoir été plus clair

Merci de votre participation active

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Mai 2017

• #12

Re

Avec à adapter:Range("")

Code:

Range("").FormulaLocal = "si(ou(C2=bdd_sinistre!J3:J" & Sheets("bdd_sinistre").Range("J" & Rows.Count).End(xlUp).Row & "); C2 -lancement!A9; "")"

 

Vote positif 0 Vote négatif

K

Karlito91170

XLDnaute Nouveau

• 22 Mai 2017

• #13

pierrejean à dit:

Re

Avec à adapter:Range("")

Code:

Range("").FormulaLocal = "si(ou(C2=bdd_sinistre!J3:J" & Sheets("bdd_sinistre").Range("J" & Rows.Count).End(xlUp).Row & "); C2 -lancement!A9; "")"

Cliquez pour agrandir...

Pardonnes moi ma question bête, mais je ne saisi ce que je dois "adapter avec range("")

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Mai 2017

• #14

Bonjour.
Pouvez-vous essayer ça :

VB:

[C1003].FormulaArray = Application.ConvertFormula( _
        "=IF(OR(R[-1002]C=bdd_sinistre!R3C10:R" & Feuil3.[J1000000].End(xlUp).Row _
        & "C10),R[-1002]C-Lancement!R9C1,"""")", xlR1C1, xlA1, RelativeTo:=[C1003])

 

Vote positif 0 Vote négatif

K

Karlito91170

XLDnaute Nouveau

• 22 Mai 2017

• #15

Super tout fonctionne, merci beaucoup à vous tous .
Vous m'avez été d'une aide très précieuse

 

Vote positif 0 Vote négatif