Bonjour,
Dans l’exemple joint, je cherche à afficher la valeur de “G1” de l’onglet Base Facturation, que j’aurais saisi, dans la cellule “B4”.
Mais aussi la possibilité de faire la même chose en saisissant une valeur dans “I1” de la feuille Devis PDF et la récupérer dans la cellule “B4” de l’onglet Base Facturation.
Merci d’avance pour votre aide
Cordialement.EXEMPLE DEVIS_FACT.xlsx (12,7 Ko)
Bonjour,
Une cellule ne peut contenir qu’une seule formule.
Tu pourrais éventuellement concatener les valeurs de G1 et de I1 dans la cellule B4 avec une formule du type *=G1 & " - " & ‘Devis PDF’!I1 mais je pense que ce n’est pas ce que tu veux.
Il faudra donc passer par une macro sur chaque onglet (clic droit sur le nom de l’onglet puis Visualiser le code) :
Macro de l’onglet “Base facturation” :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(“G1”)) Is Nothing Then
ActiveSheet().Range(“B4”) = Sheets(“Base facturation”).Range(“G1”)
End If
Macro de l’onglet Devis PDF :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(“I1”)) Is Nothing Then
Worksheets(“Base facturation”).Range(“B4”) = ActiveSheet().Range(“I1”)
End If
La cellule B4 prendra la dernière valeur saisie soit en G1 soit en I1
Bonjour ouisansdoute,
Merci pour ta réponse.
Néanmoins après application des dites macros telles quelles dans VBA, j’ai des messages d’erreurs.
Oui
Il manque juste une dernière ligne pour finir la macro.
Ajoute une ligne End Sub sous la ligne End if
J’avais justement déjà essayé cette soluce; mais je te confirme que j’ai toujours ce message d’erreur.
Pour rappel, je suis sur Excel 2016 pour Mac.
Peux remettre le fichier avec l’erreur ?
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.
