il me semble avoir vu un programme de ce type sur le site "forum excel pratique" .

Ca pourrait peut être t'aider.

a+

Bonjour

J'aurai une petite question sur la synthaxe de l'expression suivante.

If Not (Intersect(Target, [N6:O30]) Is Nothing) Then

ci-dessous mon code:



Vu que ce tableau possede une frontiere orange il est normal de ne pas activer la fonction calendrier :

D'ou ma façon de noter

If Not (Intersect(Target, [N6:O30]) Is Nothing) And .Range ("N6:030").Interior.ColorIndex = xlNoneThen ......
...lancer le calendrier.

Apres le double clic, rien ne se passe.


De plus, comme le tableau peut evoluer par les boutons d'insertion/suppression de ligne, j'ai tenté de mettre une fonction ci-dessous (si la ligne appartient au tableau.



Ce code est placé avant le 1e, cela pour chasser la zone approximative N6:O30, mais je suis confronté à une erreur de compilation.

Principe de la fonction DECALER

=DECALER(Origine ;Décalage Lignes ;D colonnes ;Hauteur zone; Largeur zone)

>>>> Hauteur zone; Largeur zone c'est optionnel si tu cherches une plage de cellules



Principe de la fonction EQUIV

=EQUIV(Valeur cherchée; Zone de recherche; Type)

Si type = 0        >>> Valeur exacte = valeur cherchée
Si type = 1        >>> Valeur la plus élevée inf ou = valeur cherchée
Si type = -1       >>> Valeur la moins élevée sup ou = valeur cherchée


Je pense qu'avec ça tu ne peux plus avoir d'ambiguïtés

a+

A voir ton image, c'est une installation. Ce type de message arrive souvent quand on possède windows 7 ou vista. Si tu fais clik droit et lancer en tant qu'administrateur tu n'aura pas ce probleme

Je viens d'essayer mais ca ne me met toujurs en erreur.
Table2 est un tableau virtuel et il n'accepte pas les sommes de J=0 To Ubound

With Table2.Range("0:Ubound")
    Range("F4").FormulaLocal = "= Sum(" & Table2.Value & ")"
  End With



Ca me retourne le cerveau , je vais faire une sieste



ZZZZZZZZZ

Hello

merci pour ces précisions.

Je te poste un fichier qui synthétise globalement ce que je fais (même s'il est bcp moins dense que l'original)
Tu veras que les lignes vertes peuvent changer de position selon la situation du moment. Ce qui implique que les tableaux de "1e cas" et "2e cas peuvent" changer. D'ou mon intérêt à utiliser vba.

Mon dernier challenge consiste à créer un tableau virtuel regroupant les cellules vertes en page Devis (exple colonne G et d'y faire la somme)

Ensuite c'est la même chose pour les colonnes G, H, I


Je n'ai pas mis cette partie de code dans mon programme, parce que vba refuse de sommer les valeurs stockées

J'essaie de trouver pourquoi

Je suis d'accord avec toi, la méthode R1C1 est vraiment prise de tête.

Je ne savais pas qu'on pouvait utiliser des offset dans les formules de calcul. Par contre la syntaxe n'est pas encore familière pour moi

Pourquoi "&" se situe au début et à la fin de l'expression ?

Voila mon bout de programme

With P3.Range("N" & Lig)
.Formula = "=" & .Offset(0, -1).Address & "/" & .Offset(0, -5).Address & "* 100 - 100"
.NumberFormat = "0.00"
End With

En tout cas la formule fonctionne

Merci pour le coup de pouce

cordialement
gladius

Bonjour à tous

j'ai un petit soucis dans la syntaxe vba :

La cellule ou je souhaite faire le calcul doit : (exple D10)

.Formula = "=(R" & LgDep & RC[-1] / R" & LgDep & C[-5]")*100-100"


PS : LgDep est ma variable ligne qui fait ce calcul (selon des critères)

Merci à tous

amicalement

gladius

Bonjour
Je viens de tester votre programme et il marche très bien. Il correspond exactement à mes attentes
Merci beaucoup pour l'efficacité et la rapidité de vos réponses. Mon collègue m'a fait une bonne pub sur votre site et je constate qu'il ne s'est pas trompé, vous semblez très passionnés par ce que vous faites.

Par contre j'aurai deux questions sur la ligne :
 = .Cells(.Rows.Count, 1).End(xlUp).Row

.Cells(.Rows.Count, 1) >> signifie qu'une fois la position de la cellule, il sélectionne sur sa droite la ligne en comptant de 1 en 1 , et End(xlUp).Row veut dire jusq'à "l'infini" ?
Dans le cas ou on aurait End(xlDown).Row ca serait de la position de la cellule jusqu'à zéro?

Encore mille merci et à bientôt.

Pechevski a eu un accident de la route, donc il est en arrêt. J'ai repris son travail et m'a conseillé ce site.

voila tout ^^

Je vais tester votre code, merci pour cette reponse