problème pour if dans vba

bonjour,
je fais portant tout simple mais je n'arrive pas rien ne se passe
je veux juste faire une formulaire comme avec si mais dans un macros pour ne pas effacer la formule a chaque fois que j'efface les données
après je vais faire une liste de if avec else if pour les differents produits
si une âme charitable pouvais bien me depatouillé.

Pièce jointe 613889

Bonjour,

Votre tableau est un tableau structuré, utilisez-le comme tel.

Code:

---

1 2 3

Sub Formules() Range("G2").FormulaR1C1 = "=IF(tabformulaire[[#This Row],[produits]]=""pizza"",tabformulaire[[#This Row],[quantité]]*7.11,"""")" End Sub

---

.
Bien sûr il faudra l'adapter pour les autres produits, mais s'il y en a beaucoup, il faudra utiliser une autre formule (avec INDEX, EQUIV) et une table de correspondance de prix par produits.

Je vois que votre fichier est en "xlsx", pensez à l'enregistrer en "Xlsm".

Cdlt

super cela convient mais que pour la première ligne.
je pensais qu'en selectionnant la colonne entière cela le ferais tout seul. :oops: mais sa serait trop facile
pourriez vous me dire quoi faire pour faire cela sur toute la colonne svp.

oui bien sur.

Citation:

---

super cela convient mais que pour la première ligne.
je pensais qu'en selectionnant la colonne entière cela le ferais tout seul. mais sa serait trop facile
pourriez vous me dire quoi faire pour faire cela sur toute la colonne svp.

---

Puisque votre tableau est un tableau structuré (D'après l'image 1 fournie), normalement la formule se recopie automatiquement sur toute la colonne du tableau. Vérifiez le redimensionnement de votre tableau.

quand je fais la formule direct dans le tableau ouimais pas avec le macro.

tampis j'ai abandonné j'ai fais deux tableau au lieu d'un comme cela la ligne effacé ne concerne pas les formules.
merci quand même pour votre aide.:zoubi:

C'est curieux, il n'y a pas de raison que cela ne marche pas, sinon pour être sûr de prendre toutes les lignes, vous pouvez faire ceci (en supposant que la feuille s'appelle "Recette"):

Code:

---

1 2 3 4

Sub Formules() DerLig = Sheets("Recette").ListObjects("tabformulaire").DataBodyRange.Rows.Count + 1 Range("G2:G" & DerLig).FormulaR1C1 = "=IF(tabformulaire[[#This Row],[produits]]=""pizza"",tabformulaire[[#This Row],[quantité]]*7.11,"""")" End Sub

---

mais il y a sûrement une explication au non fonctionnement dans votre fichier.

merci c'est bon celui la fonctionne
cela viens peut etre un probleme du logiciel, je ne peut plus inserer de commande activeX.
enfin bon je ne sais pas tampis, j'ai deja passé trop de temps à chercher à regler le probleme. je suis blazé

mais merci pour cette solution.