XL 2019 Erreur avec Formula

Efgé

XLDnaute Barbatruc

• 15 Mars 2022

• #2

Bonjour @re4
Pour le second point :

VB:

Range("S1").Formula = "=SUM(" & Cells(1, 19).Address & ":" & Cells(100, 20).Address & ")"

cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 15 Mars 2022

• #3

Re
Pour le premier point il y a une parenthèse en trop à la fin

VB:

Range("N32").Formula = "=IFERROR(VLOOKUP(L32,$F$3:$I$26,2,FALSE),""0"")"

Cordialement

 

Vote positif 0 Vote négatif

Solution

R

re4

XLDnaute Occasionnel

• 15 Mars 2022

• #4

Merci beaucoup Efgé

 

Dernière édition: 16 Mars 2022

Vote positif 0 Vote négatif

R

re4

XLDnaute Occasionnel

• 16 Mars 2022

• #5

Bonjour
Je n'y arrive pas avec range(cells(

Code:

Range(Cells(32, 15)).Formula "=IFERROR(VLOOKUP(range(cells(3,6),cells(26,9)),2,False),""0"")"

Merci

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 16 Mars 2022

• #6

Bonjour @re4
Cells est déjà un range donc Range(Cells(... ne vas pas.
Ensuite dans une formule il faut renvoyer l'adresse des cellules données par Cells(1,1).address.
Pour finir, il faut découpler le calcul de l'adresse par VBA et le texte réel de la formule.

En plus ta version de Vlookup ne vas pas.
Donne nous la formule en Français qui fonctionne dans ta feuille. On verra pour la "traduire".

Cordialement

EDIT
Un exemple de traduction :
La formule en C1 de la feuille active

VB:

=SIERREUR(RECHERCHEV($A$1;$A$1:$A$26;1;FAUX);"0")

La transposition en VBA

Code:

Cells(1, 3).Formula = "=IFERROR(VLOOKUP(" & Cells(1, 1).Address & "," & Cells(1, 1).Address & ":" & Cells(26, 1).Address & ",1,False),""0"")"

 

Dernière édition: 16 Mars 2022

Vote positif 0 Vote négatif

R

re4

XLDnaute Occasionnel

• 16 Mars 2022

• #7

Bonjour
Merci, bien sûr ,-) ta solution fonctionne, je vais m'en inspirer pour la suite
Bonne journée

 

Vote positif 0 Vote négatif