Discussion :

[mel91]

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é.

[ARTURO83]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mel91]

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.

oui bien sur.

[ARTURO83]

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.

[mel91]

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.

[ARTURO83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.