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

Tout fonctionne mais y a t-il mieux à faire

Créer une discussion

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
U

un internaute

XLDnaute Impliqué
Bonjour le forum,
J'ai ajouter la partie en rouge à la macro pour faire la même chose mais en colonne H
Y a t-il mieux à faire pour la simplifier?
Merci d'avance
Bien cordialement


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E4:E15"), Target) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) And Target <> "" Then
Application.EnableEvents = False
Target.Formula = "=" & Target & "+'Année 2016'!E16"
Application.EnableEvents = True
End If
End If
If Not Intersect(Range("H4:H15"), Target) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) And Target <> "" Then
Application.EnableEvents = False
Target.Formula = "=" & Target & "+'Année 2016'!H16"
Application.EnableEvents = True
End If
End If
End Sub
 
Trier par date Trier par votes
Bonjour.
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E4:E15,H4:H15"), Target) Is Nothing And Target.Count = 1 Then
   If VarType(Target.Value) = vbDouble Then
      Application.EnableEvents = False
      Target.Formula = "=" & Target.Value & "+'Année 2016'!$E$16"
      Application.EnableEvents = True
      End If: End If
End Sub
 
Vote positif 0 Vote négatif
Bonjour Dranreb,
Ça fonctionne SUPER mais il y a un "petit" hic c'est que j'ai 1 m3 de différence entre l'ancienne macro (la mienne) et la tienne.
Les cellules de la colonne H sont formatées en standard.
Peut-on arriver à corriger le petit problème?
Merci d'avance
Bien à toi
 
Vote positif 0 Vote négatif
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E4:E15,H4:H15"), Target) Is Nothing And Target.Count = 1 Then
   If VarType(Target.Value) = vbDouble Then
      Application.EnableEvents = False
      Target.Formula = "=" & Target.Value & "+'Année 2016'!" & Target.Address
      Application.EnableEvents = True
      End If: End If
End Sub
 
Vote positif 0 Vote négatif
Bonjour Dranreb,
C'est ta première macro qui fonctionne.
Car je fait des différences et je trouve 21 m3 au lieu de 20 m3 avec ma première macro.
J'ai repris ta première macro et ajouter -1
je ne sais pas si c'est très "catholique" mais ça tombe juste

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E4:E15,H4:H15"), Target) Is Nothing And Target.Count = 1 Then
If VarType(Target.Value) = vbDouble Then
Application.EnableEvents = False
Target.Formula = "=" & Target.Value & "+'Année 2016'!$E$16-1" 'ajout -1 par moi
Application.EnableEvents = True
End If: End If
End Sub

Excuse le retard pour te répondre.
Bien cordialement
 
Vote positif 0 Vote négatif
Bonjour.
Je ne sais pas; tout ce que je n'avais pas vu du 1er coup c'est que dans vos lignes en rouge vous preniez H16 et plus E16. Alors j'en ai déduit qu'il fallait prendre Target.Address
Mais c'est peut être faux. Toujours très difficile sans voir le classeur ni pouvoir tester…
il faut peut être :
VB: 
Target.FormulaR1C1 = "=" & Target.Value & "+'Année 2016'!R16C"
 
Dernière édition:
Vote positif 0 Vote négatif
Re-bonjour
Oui ça fonctionne avec ta nouvelle ligne.
Meme avec celle ci-dessous:
Target.Formula = "=" & Target.Value & "+'Année 2016'!H16"
Je conçois que sans le classeur c'est très difficile et comme je ne suis pas un as de l'explication!!!
If VarType(Target.Value) = vbDouble Then
La ligne ci-dessus est très interressante
En tout cas merci à toi d'avoir résolu mon problème.
Bonne fin de journée à toi
Bien cordialement
 
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

U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
679
un internaute
U
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
590
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
403
nabilexcel2007
N
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
245
anthoYS
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
410
un internaute
U
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
417
sylvanu
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
280
TooFatBoy
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
475
job75
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
280
Francky79
F
U
  • Question Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
686
un internaute
U
J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
527
jalaba
J
U
  • Question Question
Autres Les macros fonctionnent mais il y a mieux à faire je pense
Réponses
2
Affichages
202
un internaute
U
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
510
spike29
S
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
498
sofmat
S
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
922
Simon 1234
S
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
772
thunder23
  • Question Question
Microsoft 365 Incompatibilité de type
Réponses
1
Affichages
444
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…