Boîte de dialogue saisi plus addition

Papou-net

XLDnaute Barbatruc

• 9 Juillet 2014

• #2

Re : Boîte de dialogue saisi plus addition

Bonjour MoutMout,

Ci-joint un exemple avec un InputBox.

Tu peux bien sur définir la plage de cellules pour laquelle le double-clic sera actif.

Cordialement.

 

Pièces jointes

• Exemple MoutMout.xls

  31 KB · Affichages: 35

Vote positif 0 Vote négatif

M

MoutMout

Guest

• 9 Juillet 2014

• #3

Re : Boîte de dialogue saisi plus addition

Ton exemple est extra c'est exactement ce que je souhaite.
En revanche je veux bien quelques explications concernant la définition de plage, le langage VBA m'embrouille pas mal

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 9 Juillet 2014

• #4

Re : Boîte de dialogue saisi plus addition

RE:

Dans le code modifié ci-après, le double-clic n'est actif que pour la plage A2:G10.

Tu peux l'adapter à ta guise pour la limiter aux cellules devant contenir des valeurs numériques.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("A2:G10"), Target) Is Nothing Then Exit Sub
On Error Resume Next
Cancel = True
rep = InputBox("Valeur")
If rep <> "" Then Target = Target.Value + CDbl(rep)
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

M

MoutMout

Guest

• 9 Juillet 2014

• #5

Re : Boîte de dialogue saisi plus addition

Dans le code modifié en fait tu as défini ton "Target" c'est bien ça ?

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 9 Juillet 2014

• #6

Re : Boîte de dialogue saisi plus addition

RE:

Dans le code modifié en fait tu as défini ton "Target" c'est bien ça ?

Cliquez pour agrandir...

En quelque sorte, oui.

Pour être plus précis, Target représente la cellule qui a fait l'objet du double-clic. Si Intersect est vide (Nothing), celà veut dire que l'intersection Ligne/Colonne de Target n'est pas située dans la plage A2:G10.

Cordialement.

 

Vote positif 0 Vote négatif

M

MoutMout

Guest

• 9 Juillet 2014

• #7

Re : Boîte de dialogue saisi plus addition

D'accord jusque là ça j'arrive à suivre. Dernière question après je pense que ça devrait aller. Comment fais-tu pour lier la macro vba avec la Feuille 1 de ton classeur Excel.

Cordialement

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 9 Juillet 2014

• #8

Re : Boîte de dialogue saisi plus addition

RE:

Dans la fenêtre Projet-VBAProject de l'éditeur VBA, tu développes la ligne Microsoft Excel Objets et tu fais un double-clic sur le nom de la feuille (Feuil1 dans ton cas). Puis, tu développes la liste déroulante en haut à gauche de la fenêtre principale et tu sélectionnes Worksheet. Enfin, dans la liste déroulante de droite, tu choisis l'événement concerné, soit BeforeDoubleClick.

Cordialement.

 

Vote positif 0 Vote négatif

M

MoutMout

Guest

• 9 Juillet 2014

• #9

Re : Boîte de dialogue saisi plus addition

Tout simplement..
ça marche du tonnerre merci beaucoup pour ton aide !

 

Vote positif 0 Vote négatif

M

MoutMout

Guest

• 9 Juillet 2014

• #10

Re : Boîte de dialogue saisi plus addition

C'était trop beau..
Là tout roule si ce n'est que je souhaite définir plus plage de cellules. Mes tentatives n'ont pas abouties, auriez-vous un dernier conseil à me donner ?

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 9 Juillet 2014

• #11

Re : Boîte de dialogue saisi plus addition

Je pense que tu veux définir des plages de cellules non contigües? Si c'est le cas, voici un exemple avec 3 zones distinctes:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("A2:G10, A20:D40, F15:M16"), Target) Is Nothing Then Exit Sub
On Error Resume Next
Cancel = True
rep = InputBox("Valeur")
If rep <> "" Then Target = Target.Value + CDbl(rep)
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

M

MoutMout

Guest

• 9 Juillet 2014

• #12

Re : Boîte de dialogue saisi plus addition

Oui exactement.
J'étais pas loin, je l'avais fais comme tel : If Intersect(Range("A2:G10", "A20😀40", "F15:M16"),
Merci encore

 

Vote positif 0 Vote négatif