echec formule

[Cyrielle_8]

Bonjour,

Je ne sais pas exactement quel est le pb, il n'empêche qu'il me bloque pas mal.

Donc voila en fait, j'ai commençais à automatiser ce fichier, mais je n'arrive pas as entré toutes les données. Je ne peux pas entrer les données 1, 2, et 3 de "points de révision" du "Descenseur" de la liste déroulante. J’ai pensé qu’en fait Excel trouver la formule trop grande, mais je n'y crois pas trop, et en même tps je ne trouve pas le problème.


please, help me

Merci d'avance de vos précieuses réponse.

Cyrielle

 

[pierrejean]

Re : echec formule

bonjour Cyrielle

en attendant l'interventon d'un specialiste es formules

les formules en B8 B10 B12 ne comportent pas la condition SI(A5=10)

 

[filiph79]

Re : echec formule

bonjour cyrielle,

Une solution avec des fonctions recherche.

J'ai quelque peu modifier ton fichier pour les besoins des recherche.

Si cela te convient...

Cordialement

 

[LPandre]

Re : echec formule

Bonjour

autre proposition

cordialement

 

[fanfan38]

Re : echec formule

Bonjour
Tu peux faire autrement. Clic sur feuil1 avec le bouton droit et selectionne visualiser le code.
A la place de GENERAL choisi WORKSHEET
A la place de SelectionChange choisi CHANGE

sous: Private Sub Worksheet_Change(ByVal Target As Range) sasir les lignes ci dessous (et completer jusqu'à 10)

Select Case Range("a5").Value
Case Is = 2
Range("b8").Value = Sheets("point").Range("c2").Value
Range("b10").Value = Sheets("point").Range("c3").Value
Range("b12").Value = Sheets("point").Range("c4").Value
Range("b14").Value = Sheets("point").Range("c5").Value
Range("b16").Value = Sheets("point").Range("c6").Value
Case Is = 3
Range("b8").Value = Sheets("point").Range("c7").Value
Range("b10").Value = Sheets("point").Range("c8").Value
Range("b12").Value = Sheets("point").Range("c9").Value
Range("b14").Value = Sheets("point").Range("c10").Value
Range("b16").Value = Sheets("point").Range("c11").Value
Case Is = 4
'etc... jusque case is=10
End Select
A+ François

 

[pierrejean]

Re : echec formule

bonsoir

@ fanfan

Quitte a proposer une solution vba autant qu'elle soit legere !!

avec une peite modification de la feuille point pour avoir 6 lignes par objet

Sub change()
x = 6 * Range("A5") - 10
For n = 0 To 5
 Range("B" & 2 * n + 8).Value = Sheets("point").Range("C" & x + n).Value
Next n
End Sub