mes donner dans les cellules de la page 1 dans se code vba ne se transfere plus...

[patrick965]

bonjour et bonsoir
je cherche a comprendre avec ce code ce qui ce passe avant il marchais super bien et la pour une raison que jignore quelque chose cloche quelque part ( quans je clic droite a la page 3 sur l'article voulue il copie ce que je veu mais il les copies pas dans ma colone a la page 1 entre la ligne 17 et 36 )il les copies mais a partir de la ligne 40 de la page 1 CE QUE JE NE VEU PAS .

je veux que toute les acticles que je clic droite a la page 3 ce copie a la page 1 entre les ligne 17 et 36 et que rien ne dépasse la ligne 36 meme si toute les lignes son remlie s'il son remplie jaimerais quil ne soie plus possible d'ajouter aucune article a moin d'en enlever .

merci de bien vouloir m'aider.

je ne peu joindre mon fichier il est de 600 ko donc trop gros mes cest le meme que le fichier join mais lui il fnctionne bien mais mon autre non
je ne comprend pas ...
__________________

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

Application.ScreenUpdating = False
Cancel = True
If Not Intersect(Target, Range("A7:A400")) Is Nothing Then
Dim ligne
Dim derligne
ligne = Target.Row
Range(Cells(ligne, 1), Cells(ligne, 3)).Select
Selection.Copy
Sheets("Feuil1").Select
derligne = Sheets(1).Range("A65535").End(xlUp).Row + 1
Sheets(1).Range("A" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil3").Select
Cells(Target.Row, 6).Select
Selection.Copy
Sheets("Feuil1").Select
Sheets(1).Range("D" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil3").Select
Cells(Target.Row, 7).Select
Selection.Copy
Sheets("Feuil1").Select
Sheets(1).Range("F" & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuil3").Select
End If
Application.ScreenUpdating = True
End Sub

 

[libellule85]

Re : ((( TRES URGENT ))) - Comment changer ou ajouter des cellules dans se code vba

Bonjour Patrick965, le forum,

Tout d'abord celà ne sert à rien de mettre "très urgent" dans le titre de ton post, ici c'est un forum les gens y sont bénévoles et répondent pendant leur loisir. Ensuite évite d'écrire en majuscule, celà veut dire que tu cries. Et enfin, met ton code dans la balise prévue à cet effet (signalée par un #).
Enfin bref, tu devrais lire Lien supprimé

 

[phlaurent55]

Re : ((( TRES URGENT ))) - Comment changer ou ajouter des cellules dans se code vba

Bonjour Patrick, Libellule

Patrick, après quelques jours de rare présence sur XLD je vois que ton impatience est toujours d'actualité
J'ai bien reçu ton message perso ........ mais je ne répond jamais à ceux-ci (sauf pour quelques amis)
était-il nécessaire de créer plusieurs fils de discussion pour un même problème

est-ce bien difficile de modifier ?

If Not Intersect(Target, Range("A7:A274")) Is Nothing Then
If Not Intersect(Target, Range("A7:A400")) Is Nothing Then

Range(Cells(ligne, 1), Cells(ligne, 2)).Select
Range(Cells(ligne, 1), Cells(ligne, 3)).Select

Cells(Target.Row, 4).Select
Cells(Target.Row, 6).Select

Sheets(1).Range("F" & derligne).Select
Sheets(1).Range("D" & derligne).Select

à+
Philippe

 

[Philippe68]

Re : ((( TRES URGENT ))) - Comment changer ou ajouter des cellules dans se code vba

Bonjour, salut Phil,

ouais comme tu dis, il revient à la charge avec ses "urgences", et sans saluer. 😡
on lui avait pourtant dit l'autre jour, c'est vraiment du foutage de gueule !

par contre, une petite nouveauté, les MAJUSCULES 😕
tu es trop gentil Phil, j'aurais même pas répondu....

 

[patoq]

Re : ((( TRES URGENT ))) - Comment changer ou ajouter des cellules dans se code vba

bonjour les 2 philippe ,bonjour le forum

Patrick met "TRES URGENT" à 3H 33 et tu ne réponds qu'a 8H 13 ,de qui se moque t'on ?😉😉😉😉
Ya vraiment des coups de pied au .... qui se perdent!!!!
A plus

 

[patoq]

Re : ((( TRES URGENT ))) - Comment changer ou ajouter des cellules dans se code vba

Re,
Vous l'aurez compris c'est ma "boutade" du matin
Allez hop je me recouche🙄🙄

 

[phlaurent55]

Re : ((( TRES URGENT ))) - Comment changer ou ajouter des cellules dans se code vba

Re, Salut Philippe

Bonjour, salut Phil,

ouais comme tu dis, il revient à la charge avec ses "urgences", et sans saluer. 😡
on lui avait pourtant dit l'autre jour, c'est vraiment du foutage de gueule !

il y a pire sur le forum si tu voyais les messages d' anthoYS
voici un lien parmi tant d'autres
https://www.excel-downloads.com/thr...ce-des-feuilles-de-ce-classeur-resolu.178020/

à+
Philippe

 

[patrick965]

Re : ((( TRES URGENT ))) - Comment changer ou ajouter des cellules dans se code vba

bonjour a tous ceux qui on pris de leur temp pour me répondre et merci de mavoir donner ce coup de main merci ...

 

[Philippe68]

Re : ((( TRES URGENT ))) - Comment changer ou ajouter des cellules dans se code vba

Re, Salut Philippe

il y a pire sur le forum si tu voyais les messages d' anthoYS
voici un lien parmi tant d'autres
https://www.excel-downloads.com/thr...ce-des-feuilles-de-ce-classeur-resolu.178020/

à+
Philippe

Salut Phil, le forum....

C'est clair que lui, il remporte la palme et d'après JC, ce n'est pas la 1ere fois. 😎
Donc les 2 là, m'en vais les bloquer, puisque non-respect de la charte ! 😡