XL 2013 Pb validation de donnees

  • Initiateur de la discussion Initiateur de la discussion paskikic
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

paskikic

XLDnaute Occasionnel
bonsoir a vousles Xlnautes

j ai un soucis qui me gratte la tete , je xplique j ai une formule de calcul dans une cellule (Y61)
=SIERREUR((H61/RECHERCHEV($D$7;base_rech;19));"")
qui fonctionne correctement , mais quand je valide mon code Vba qui la recupere la valeur pour la mettre dans une cellule de ma feuille BD il me met une valeur nul ( 0,00 ) alorsque toutes les autre valeurs sont correctement validez.

With Sheets("BD")

.Range("A" & drlg) = Sheets("Relevé ").Range("D7")
.Range("B" & drlg) = Sheets("Relevé ").Range("L10")
.Range("D" & drlg) = Sheets("Relevé ").Range("F23")
.Range("E" & drlg) = Sheets("Relevé ").Range("F27")
.Range("F" & drlg) = Sheets("Relevé ").Range("R23")
.Range("G" & drlg) = Sheets("Relevé ").Range("R27")
.Range("H" & drlg) = Sheets("Relevé ").Range("AD23")
.Range("I" & drlg) = Sheets("Relevé ").Range("AD27")
.Range("J" & drlg) = Sheets("Relevé ").Range("B38")
.Range("K" & drlg) = Sheets("Relevé ").Range("N38")
.Range("L" & drlg) = Sheets("Relevé ").Range("AA38")
.Range("M" & drlg) = Sheets("Relevé ").Range("B46")
.Range("N" & drlg) = Sheets("Relevé ").Range("N46")
.Range("O" & drlg) = Sheets("Relevé ").Range("AA46")
.Range("P" & drlg) = Sheets("Relevé ").Range("B61")
.Range("Q" & drlg) = Sheets("Relevé ").Range("R61")
.Range("R" & drlg) = Sheets("Relevé ").Range("Y61")
.Range("S" & drlg) = Sheets("Relevé ").Range("AC61")
.Range("T" & drlg) = Sheets("Relevé ").Range("B76")
.Range("U" & drlg) = Sheets("Relevé ").Range("S76")
.Range("V" & drlg) = Sheets("Relevé ").Range("B84")
.Range("W" & drlg) = Sheets("Relevé ").Range("S84")
.Range("X" & drlg) = Sheets("Relevé ").Range("B92")
.Range("Y" & drlg) = Sheets("Relevé ").Range("S92")

End With


merci a vous
 
Re : Pb validation de donnees

Bonsoir

J'ai reproduit tes données dans un fichier et la valeur de la formule en Y61 est bien renvoyée dans la cellule Rx
Il doit s'agir d'un autre soucis ; peux-tu joindre ton fichier ?

Cordialement
Chris
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
593
Retour