Plage cellulle

[azerty67]

Bonjour,

Avec cette fonction, je souhaiterais que le double clic ne s'effectue que sur cette partie de la feuille A81:I81, et non sur toute la feuille. Je ne sais pas trop s'il faut modifier: lig = Target.Row et si les autres valeurs "ajouter. ..." doivent être également modifier
Je pense qu'il faut une boucle IF mais....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

lig = Target.Row
ajouter.ComboBox2.Value = ActiveSheet.Name
ajouter.ComboBox4.Value = Cells(lig, 1).Value
ajouter.TextBox2.Value = Cells(lig, 2).Value
ajouter.TextBox3.Value = Cells(lig, 3).Value
ajouter.TextBox5.Value = Cells(lig, 5).Value
ajouter.TextBox6.Value = Cells(lig, 6).Value
ajouter.TextBox7.Value = Cells(lig, 7).Value
ajouter.TextBox8.Value = Cells(lig, 8).Value
ajouter.TextBox9.Value = Cells(lig, 9).Value
ajouter.Label26.Caption = lig
ajouter.OptionButton1 = True
ajouter.Show
End Sub

merci

 

[Dull]

Re : Plage cellulle

Salut azerty, le Forum

Ajoute les lignes en Gras

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

[B] If Not Application.Intersect(Target, Range("A81:I81")) Is Nothing Then[/B]
 lig = Target.Row
with ajouter
 .ComboBox2.Value = ActiveSheet.Name
 .ComboBox4.Value = Cells(lig, 1).Value
 .TextBox2.Value = Cells(lig, 2).Value
 .TextBox3.Value = Cells(lig, 3).Value
 .TextBox5.Value = Cells(lig, 5).Value
 .TextBox6.Value = Cells(lig, 6).Value
 .TextBox7.Value = Cells(lig, 7).Value
 .TextBox8.Value = Cells(lig, 8).Value
 .TextBox9.Value = Cells(lig, 9).Value
 .Label26.Caption = lig
 .OptionButton1 = True
 .Show
End With
[B]End If[/B]
End Sub

Bonne Journée

 

[azerty67]

Re : Plage cellulle

Salut azerty, le Forum

Ajoute les lignes en Gras

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

[B] If Not Application.Intersect(Target, Range("A81:I81")) Is Nothing Then[/B]
 lig = Target.Row
with ajouter
 .ComboBox2.Value = ActiveSheet.Name
 .ComboBox4.Value = Cells(lig, 1).Value
 .TextBox2.Value = Cells(lig, 2).Value
 .TextBox3.Value = Cells(lig, 3).Value
 .TextBox5.Value = Cells(lig, 5).Value
 .TextBox6.Value = Cells(lig, 6).Value
 .TextBox7.Value = Cells(lig, 7).Value
 .TextBox8.Value = Cells(lig, 8).Value
 .TextBox9.Value = Cells(lig, 9).Value
 .Label26.Caption = lig
 .OptionButton1 = True
 .Show
End With
[B]End If[/B]
End Sub

Bonne Journée

Pardon ??

 

[roro69]

Re : Plage cellulle

Tiens essaye ceci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim C As Range
Cancel = True
If Not Application.Intersect(Target, Range("A81:I81")) Is Nothing Then
Set C = ActiveSheet.Cells.Find(What:=ActiveCell)
If Not C Is Nothing Then
With Ajouter
.(Toute tes valeurs)
.Show
End With
End If
End If
End Sub
Voili
Edit oh pardon dull

 

[Dull]

Re : Plage cellulle

Re azerty

je souhaiterais que le double clic ne s'effectue que sur cette partie de la feuille A81:I81, et non sur toute la feuille.

If Not Application.Intersect(Target, Range("A81:I81")) Is Nothing Then

ce code n'autorise le déroulement de ta macro par DoubleClick que sur la page A81:I81

n'ayant qu'un bout de code à disposition c'est ce que j'avais compris
si c'est pas le cas désolé

EDITION: Salut roro

 

[azerty67]

Re : Plage cellulle

Re azerty

If Not Application.Intersect(Target, Range("A81:I81")) Is Nothing Then

ce code n'autorise le déroulement de ta macro par DoubleClick que sur la page A81:I81

n'ayant qu'un bout de code à disposition c'est ce que j'avais compris
si c'est pas le cas désolé

EDITION: Salut roro

Grand merci Dull c'est juste le morceau de code qu'il me manquait. Où trouves tu tous ces codes ? Livres, etc.
Merci

 

[Dull]

Re : Plage cellulle

Re le fil

Ouais... un livre de près de 1133 pages rien que pour le tome 3 et on en rajoute tous le jours

Son Titre... Excel-Downloads

Bonne Journée

 

[azerty67]

Re : Plage cellulle

Re le fil

Ouais... un livre de près de 1133 pages rien que pour le tome 3 et on en rajoute tous le jours

Son Titre... Excel-Downloads

Bonne Journée

Oui lol mais tu te rends compte le nombre de post qu'il va falloir que je mette pour comprendre le minimun de codes ?

D'ailleurs j'ai une autre question sur un usrrform si cela ne te dérange pas bien entendu. Je te posterais le fichier si tu as le temps de regarder

Voilà le fichier et merci si tu peux m'aider

Je souhaiterais dans un premier temps grace à l'userform "Gérer" valider un client dans la 1ere combo et en précisant un n° de commande dans la seconde combo, que je puisse saisir et modifier n'importe quelles valeurs dans les texbox et que ces valeurs se recopient dans la feuilles "Datas..." pour le client sélectionné. Sachant qu'i y aura plusieurs clients sur feuilles différentes

Je souhaiterais une fois ceci fait que l'orsque je refait la manip des combo que les textbox m'affichent les coûts de chaque mois de l'année pour le client

J'ai construit plusieurs userform identique car je ne sais pas comment le faire à partir d'un seul userform
J'aimerais le principe du double clic si possible

Je te remercie d'avance car là je cale vraiment

Merci

 

[azerty67]

Re : Plage cellulle

Oui lol mais tu te rends compte le nombre de post qu'il va falloir que je mette pour comprendre le minimun de codes ?

D'ailleurs j'ai une autre question sur un usrrform si cela ne te dérange pas bien entendu. Je te posterais le fichier si tu as le temps de regarder

Voilà le fichier et merci si tu peux m'aider

Je souhaiterais dans un premier temps grace à l'userform "Gérer" valider un client dans la 1ere combo et en précisant un n° de commande dans la seconde combo, que je puisse saisir et modifier n'importe quelles valeurs dans les texbox et que ces valeurs se recopient dans la feuilles "Datas..." pour le client sélectionné. Sachant qu'i y aura plusieurs clients sur feuilles différentes

Je souhaiterais une fois ceci fait que l'orsque je refait la manip des combo que les textbox m'affichent les coûts de chaque mois de l'année pour le client

J'ai construit plusieurs userform identique car je ne sais pas comment le faire à partir d'un seul userform
J'aimerais le principe du double clic si possible

Je te remercie d'avance car là je cale vraiment

Merci

Une idée ?

 

[azerty67]

Re : Plage cellulle

Oui lol mais tu te rends compte le nombre de post qu'il va falloir que je mette pour comprendre le minimun de codes ?

D'ailleurs j'ai une autre question sur un usrrform si cela ne te dérange pas bien entendu. Je te posterais le fichier si tu as le temps de regarder

Voilà le fichier et merci si tu peux m'aider

Je souhaiterais dans un premier temps grace à l'userform "Gérer" valider un client dans la 1ere combo et en précisant un n° de commande dans la seconde combo, que je puisse saisir et modifier n'importe quelles valeurs dans les texbox et que ces valeurs se recopient dans la feuilles "Datas..." pour le client sélectionné. Sachant qu'i y aura plusieurs clients sur feuilles différentes

Je souhaiterais une fois ceci fait que l'orsque je refait la manip des combo que les textbox m'affichent les coûts de chaque mois de l'année pour le client

J'ai construit plusieurs userform identique car je ne sais pas comment le faire à partir d'un seul userform
J'aimerais le principe du double clic si possible

Je te remercie d'avance car là je cale vraiment

Merci

Tu as reçu mon message ?

 

[Dull]

Re : Plage cellulle

Salut Azerty, Le fil

Tu as reçu mon message ?

Oui Azerty... Ne t'impatiente pas... j'y jette un œil et je vais voir ce que je peut faire. D'autre part les autres Xlnautes peuvent aussi répondre. Relance ton sujet, comme tu l'a fait, avec un petit Up de temps en temps

Je suis obligé de couper de temps en temps (BasDébitOblige)

Bonne Journée