Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Diverses formules dans la même cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion solo84
  • 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 !

S'inscrire
S

solo84

XLDnaute Junior
Bonjour à tous,

Tout d'abord, comme cela est mon premier message, je vous félicite tous pour ce fabuleux forum.
J'aurais besoin de vos conseils sur un sujet qui me préoccupe depuis quelques temps.
Je suis en train de créer un formulaire qui devra effectuer des calculs sur plusieurs tableaux simultanément. J'ai créer deux fonctions de calculs de test.
Je vais tenter de vous expliquer aussi clairement que possible.
Je sélectionne dans une première liste le pays de destination, une seconde cellule m'affiche alors les différents codes postaux une fois celui-ci choisit avec une fonction recherche-v je trouve la ligne correspondante au pays et au code postal.
Vous me direz ou est le problème !!! J'ai 28 pays et une seule cellule !!! Comment puis je afficher la formule adéquate correspondante à la sélection du pays ?
J'ai pensé a passer par le VBA avec une succession de If then en fonction du string rentré.
Mais j'aurais souhaité avoir vos avis sur la question u une piste de travail.
Je ne vous ai pas joint de fichier car il est constitué de 30 tableaux différents et un peu lourd.
Je prépare un fichier d'exemple avec seulement 2 pays et 2 transporteurs afin que cela soit plus clair.
Merci de toute l'aide que vous pourriez m'apporter et de toute votre gentillesse !

Bien amicalement,

Solo
 
Trier par date Trier par votes
Re : Diverses formules dans la même cellule

Le code suivant te semble t-il coherent :
Option Explicit
Private Sub Worksheet_Change()
Range("D8").Select
If ActiveCell="Suisse" Then
Range("F8").Formula= Formule N°1
Else If ActiveCell="Autriche" Then
Range("F8").Formula= Formule N°2

End If
End Sub

Puis je avoir ton avis sur la question ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Diverses formules dans la même cellule

Option Explicit

Dim WS As Worksheet
Dim valeur As Range

Private Sub Worksheet_Activate()

valeur = Range("D12")

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Range("D12").Select
If Range("D12").Value = "Suisse" Then
Range("H13").FormulaR1C1 = "=SI(ESTNA(RECHERCHEV($D$13,CP!$Q$5:$R$53,2,FAUX)),"",RECHERCHEV($D$13,CP!$Q$5:$R$53,2,FAUX))"
Else
If Range("D12").Value = "Autriche" Then
Range("H13").FormulaR1C1 = "=SI(ESTNA(RECHERCHEV($D$13,CP!$Q$5:$R$53,2,FAUX)),"",RECHERCHEV($D$13,CP!$Q$5:$R$53,2,FAUX))"
End If
End If
End Sub


J'ai modifié le code et ça ne marche toujours pas !! Snif snif
 
Vote positif 0 Vote négatif
Re : Diverses formules dans la même cellule

Ca marche !!! Mais ca ne marche qu'avec une fonction somme ! je ne comprends pas pourquoi ca ne marche pas avec l'autre fonction que j'ai mis en commentaire

Option Explicit

Dim WS As Worksheet
Dim valeur As Range

Private Sub Worksheet_Activate()

valeur = Range("D12")

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("D12").Select
If Range("D12").Value = "Suisse " Then
Range("H13").Select
'With WS
'Range("H13").FormulaLocal = "=SI(ESTNA(RECHERCHEV($D$13,CP!$Q$5:$R$53,2,FAUX)),"",RECHERCHEV($D$13;CP!$Q$5:$R$53,2,FAUX))"
Range("H13").FormulaLocal = "=somme(k10:k14)"
'End With
Else
If Range("D12").Value = "Autriche " Then
Range("H13").Select
'With WS
'Range("H13").FormulaLocal = "=SI(ESTNA(RECHERCHEV($D$13,CP!$Q$5:$R$53,2,FAUX)),"",RECHERCHEV($D$13,CP!$Q$5:$R$53,2,FAUX))"
Range("H13").FormulaLocal = "=somme(l10:l14)"
'End With
End If
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Diverses formules dans la même cellule

re:

gerer les "" dans une formule est assez complexe, je prefere chr(34)

Code: 
Range("H13").FormulaLocal ="=SI(ESTNA(RECHERCHEV($D$13;CP!$Q$5:$R$53;2;FAUX)) ;" & chr(34) & chr(34) & ";RECHERCHEV($D$13;CP!$Q$5:$R$53;2;FAUX))"

de plus : remplacer les , par des ; en FormulaLocal
 
Vote positif 0 Vote négatif
Re : Diverses formules dans la même cellule

Désormais ça marche, j'ai corrigé mon erreur, voici la forme que cela à :

Option Explicit

Dim WS As Worksheet

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
Range("D12").Select

If Range("D12").Value = "Suisse " Then
With WS
Range("H13").FormulaLocal = "=si(estna(recherchev($D$13;CP!$Q$5:$S$53;2;faux));0;recherchev($D$13;CP!$Q$5:$S$53;2;faux))"
'Range("H13").FormulaLocal = "=somme(k10:k14)"
End With
Else
If Range("D12").Value = "Autriche " Then
With WS
Range("H14").FormulaLocal = "=SI(ESTNA(RECHERCHEV($D$13;CP!$Q$5:$S$53;3;FAUX));0;RECHERCHEV($D$13;CP!$Q$5:$S$53;3;FAUX))"
'Range("H13").FormulaLocal = "=somme(l10:l14)"
End With
End If
End If
End Sub


Je vais adopter un mix des deux méthodes :une base de donnée avec la fonction decaler et un ensemble de formule en focntion du contenue d'une cellule !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

H
  • Question Question
XL 2016 Comment calculer le nombre de chiffres différents dans une même cellule excel ?
Réponses
6
Affichages
319
jurassic pork
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
101
tristan05
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
66
sylvanu
L
  • Question Question
Microsoft 365 format cellule pour date superposé dans la même cellule
Réponses
5
Affichages
312
luc71430
L
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
151
sylvanu
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
759
Thomi
T
Y
  • Résolu(e)
XL 2013 Colorier une cellule en fonction d'une valeur
Réponses
3
Affichages
579
Yvan1
Y
  • Question Question
XL 2016 Depuis un Module Standard pouvoir Récupérer la Photocopie d'une Classe (dont/Avec) la collection qui est incluse dans le Module de Classe.
6 7 8
Réponses
115
Affichages
7 K
laurent950
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
239
sebastien176
S
  • Résolu(e)
Microsoft 365 Graphique dans cellule
Réponses
5
Affichages
361
DJunqueira
D
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
307
Droopyougo
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
119
Phil69970
M
  • Question Question
XL 2019 Recherche d'un mot dans une chaîne de caractère depuis une plage de références puis si présent renvoyer la référence
Réponses
7
Affichages
551
MilieBZH
M
C
  • Question Question
XL 2021 Comment intégrer le contenu d'une cellule dans une formule
Réponses
1
Affichages
308
chris
  • Question Question
XL 2016 Pb de format d'affichage date et heures dans la même cellule
Réponses
3
Affichages
377
Phoenix23
H
  • Résolu(e)
XL 2010 ‏comment kilométrage la consommation‏
Réponses
12
Affichages
667
bsalv
B
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
390
sebastien176
S
C
  • Question Question
Microsoft 365 Adresse internet dans une cellule
Réponses
2
Affichages
442
CHALET53
C
A
  • Résolu(e)
Microsoft 365 Copier la même cellule de plusieurs onglets dans différentes colonnes
2
Réponses
23
Affichages
1 K
AlexiaC
A
L
  • Résolu(e)
Autres Ajouter dans une cellule un repas toute les 8 heures
Réponses
3
Affichages
423
leptitdu33
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…