Faire Rows(Target.Row) sur feuilles

[Arpette]

Bonsoir à tous, je tourne en rond depuis une semaine. Mon problème, avec un double click gauche j'insere une ligne sur une feuille. Je souhaiterais que cette action se repète sur une autre feuille et à la même ligne.
J'espère que c'est faisable.
Merci d'avace

 

[Pierrot93]

Re : Faire Rows(Target.Row) sur feuilles

Bonsoir Arpette,

essaye ainsi, à utiliser dans le module de la feuille 1 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Feuil2.Rows(Target.Row).Insert
Cancel = True
End Sub

bonne soirée
@+

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Bonsoir Arpette,

essaye ainsi, à utiliser dans le module de la feuille 1 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Feuil2.Rows(Target.Row).Insert
Cancel = True
End Sub

bonne soirée
@+

Bonsoir Pierrot, c'est exactement ce que je voulais.
Merci beaucoup.
@+bonne soirée

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Bonsoir Pierrot, c'est exactement ce que je voulais.
Merci beaucoup.
@+bonne soirée

Pierrot, excuses moi d'abuser, mais une fois que j'ai inséré j'aimerais mettre la valeur de la cellule AX, ci-joint le code

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

Worksheets("Relevé_Hebdo").Unprotect

If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
Cancel = True

Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
AX = InputBox("Merci de renseigner le Nom et le Prénom")
BX = InputBox("Merci de renseigner l'adresse")
Cells(Target.Row, 1) = AX
Cells(Target.Row, 2) = BX
Sheets("Relevé_Journalier").Rows(Target.Row).Insert
Cancel = True
End If

Worksheets("Relevé_Hebdo").Protect
End Sub

Merci pour ton aide.

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Pierrot, excuses moi d'abuser, mais une fois que j'ai inséré j'aimerais mettre la valeur de la cellule AX, ci-joint le code

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

Worksheets("Relevé_Hebdo").Unprotect

If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
Cancel = True

Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
AX = InputBox("Merci de renseigner le Nom et le Prénom")
BX = InputBox("Merci de renseigner l'adresse")
Cells(Target.Row, 1) = AX
Cells(Target.Row, 2) = BX
Sheets("Relevé_Journalier").Rows(Target.Row).Insert
Cancel = True
End If

Worksheets("Relevé_Hebdo").Protect
End Sub

Merci pour ton aide.

Bonjour à tous, quelqu'un aurait-il une idée.
Merci à tous.

 

[Pierrot93]

Re : Faire Rows(Target.Row) sur feuilles

Bonjour,

modifie peut être ainsi, mais ta question n'est pas trop précise, tu parles de de la cellule oude la variable AX....

Cells(Target.Row, 1) = AX
Cells(Target.Row, 2) = BX
With Sheets("Relevé_Journalier")
    .Rows(Target.Row).Inser t
    .Cells(Target.Row, 1) = AX
End With
Cancel = True

bonne journée
@+

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Bonjour,

modifie peut être ainsi, mais ta question n'est pas trop précise, tu parles de de la cellule oude la variable AX....

Cells(Target.Row, 1) = AX
Cells(Target.Row, 2) = BX
With Sheets("Relevé_Journalier")
    .Rows(Target.Row).Inser t
    .Cells(Target.Row, 1) = AX
End With
Cancel = True

bonne journée
@+

Bonjour Pierrot et merci de me répondre. Quand j'insère sur la cible de la feuille "Relevé_Hebdo" exemple A13 ( Pierrot ), je veux insérer sur feuille (Relevé_Journalier) en A13 (Pierrot).
Merci ton aide.

 

[Pierrot93]

Re : Faire Rows(Target.Row) sur feuilles

Re,

le code que je t'ais donné devrais le faire, l'instruction :

.Cells(Target.Row, 1) = AX

s'appliquera sur la feuille "Relevé_Journalier" puisque faisant parie du bloc "with"....

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Re,

le code que je t'ais donné devrais le faire, l'instruction :

.Cells(Target.Row, 1) = AX

s'appliquera sur la feuille "Relevé_Journalier" puisque faisant parie du bloc "with"....

Pierrot ça n'insère plus de ligne dans "Relevé_Journalier" et j'ai une erreur 438

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

Worksheets("Relevé_Hebdo").Unprotect

If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
Cancel = True

Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
AX = InputBox("Merci de renseigner le Nom et le Prénom")
BX = InputBox("Merci de renseigner l'adresse")
Cells(Target.Row, 1) = AX
Cells(Target.Row, 2) = BX
With Sheets("Relevé_Journalier")
.Rows(Target.Row).Inser t (Ici)
.Cells(Target.Row, 1) = AX
End With
Cancel = True
End If

Worksheets("Relevé_Hebdo").Protect
End Sub

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Pierrot ça n'insère plus de ligne dans "Relevé_Journalier" et j'ai une erreur 438

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

Worksheets("Relevé_Hebdo").Unprotect

If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
Cancel = True

Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).ClearContents
AX = InputBox("Merci de renseigner le Nom et le Prénom")
BX = InputBox("Merci de renseigner l'adresse")
Cells(Target.Row, 1) = AX
Cells(Target.Row, 2) = BX
With Sheets("Relevé_Journalier")
.Rows(Target.Row).Inser t (Ici)
.Cells(Target.Row, 1) = AX
End With
Cancel = True
End If

Worksheets("Relevé_Hebdo").Protect
End Sub

Pierrot et le forum, je vous joints mon fichier:
Je veux insérer JCGL qui par ordre alpha se trouve sous arpette. Donc je sélectionne Arpette dans feuille Relevé_Hebdo et je veux que le nom JCGL apparaisse dans ma feuille Relevé_Journalier.
On y était presque acec Pierrot, mais bug
Merci à Pierrot et vous tous.

 

[Pierrot93]

Re : Faire Rows(Target.Row) sur feuilles

Re

attention tu as une espace dans "insert"

.Rows(Target.Row).[COLOR="Red"]Insert[/COLOR]

bon après midi
@+

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Re

attention tu as une espace dans "insert"

.Rows(Target.Row).[COLOR="Red"]Insert[/COLOR]

bon après midi
@+

Bonjour Pierrot et merci c'est nickel. J'abuse de ta sympathie et de tes compétences, mais maintenant je souhaiterais faire la même chose avec click droit suppression de la ligne, voir fichier joint ou code
Merci de ton aide.

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

Dim Rep As Integer

Worksheets("Relevé_Hebdo").Unprotect

If Not Application.Intersect(Target, Range("A1:A65000")) Is Nothing Then
Cancel = True
Rep = MsgBox("Voulez vous supprimer cette ligne ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation")
If Rep = 6 Then
Target.EntireRow.Delete 'supprime la ligne complète
Worksheets("Relevé_Journalier").Target.EntireRow.Delete
Cancel = True
Else
'Code à exécuter si la réponse est NON.
End If

End If

 

[Pierrot93]

Re : Faire Rows(Target.Row) sur feuilles

Bonjour Arpette,

il n'y a pas de fichier joint, mais à priori modifie peut être cette partie ainsi...

If Rep = 6 Then
Target.EntireRow.Delete 'supprime la ligne complète
Worksheets("Relevé_Journalier").Rows(Target.Row).Delete
Cancel = True
Else

bonne journée
@+

 

[Arpette]

Re : Faire Rows(Target.Row) sur feuilles

Bonjour Arpette,

il n'y a pas de fichier joint, mais à priori modifie peut être cette partie ainsi...

If Rep = 6 Then
Target.EntireRow.Delete 'supprime la ligne complète
Worksheets("Relevé_Journalier").Rows(Target.Row).Delete
Cancel = True
Else

bonne journée
@+

Bonjour Pierrot et le forum, j'ai appliqué ton code mais sur la ligne Worksheets("Relevé_Journalier").Rows(Target.Row).Delete, j'ai une erreur d'exécution 424.
Merci de votre aide.

 

[Cousinhub]

Re : Faire Rows(Target.Row) sur feuilles

Bonjour,

Inverse les lignes, commencent par supprimer la ligne de l'autre feuille...

Bonne journée