copier cellules dans une autre feuille avec meme réf.

[bpol]

Bonjour,

voilà je souhaiterais automatiser ma gestion de stock.

ce j'espère comme résultat est que la cellule B4 de la feuil1 se copie dans la col C de la feuil2 et en face de la même réf que la cel A4 de feuil1.

ensuite que dans la feuil3 il s'ajoute X toujours a hauteur de la même réf et cela à la suite en honrizontal


réf jusqu'à au moins 2500
j'espère avoir été clair dans mes explications
un exemple


Bpol

 

[bpol]

Re : copier cellules dans une autre feuille avec meme réf.

re,

j'ai essayé de créer la 2e partie mais cela ne fonctione pas.

Dim lig As Long
    Dim choixLig As Long


    
  ' Trouver la ligne
    choixLig = 0
       
     For lig = 4 To 2560
    
     If Sheets("feuil3").Range("A" & lig) = Sheets("feuil1").Range("A4") Then choixLig = lig
     If choixLig = lig Then
     Sheets("feuil3").Select
     lig = Range("B65536").End(xlUp).Row + 1
     Cells(lig, 1) = X
     choixLig = lig: Exit For
     End If
    Next lig
  
    Cells(choixLig, 1) = X

'    If choixLig = 0 Then
'        MsgBox "L'enregistrement n'est pas possible", vbCritical + vbOKOnly, "Erreur"
'        Exit Sub
'    End If

qui pour un petit coup de pouce
Bpol

 

[jp14]

Re : copier cellules dans une autre feuille avec meme réf.

Bonsoir

Ci joint un fichier avec une macro

a tester

JP

 

[bpol]

Re : copier cellules dans une autre feuille avec meme réf.

bonsoir jp14,

merci de ta réponse mais c'est pas tout à fait cela je souhaite copier la cell B4 dans la feuil 2 mais que le résultat reste si je change de réf.
et dans la 3e feuil je souhaite chaque fois que j'aurai comptabilisé une réf dans la feuil 2 qui se mette une croix sur sa ligne correspondante

il faut compter des col de +/_2500 ref.

excusez moi mais je n'aurai pas l'occasion de vous répondre avant demain
Merci bonne soirée
Bpol

 

[jp14]

Re : copier cellules dans une autre feuille avec meme réf.

Bonsoir

Ci dessous la procédure modifiée

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
Dim dc1 As Long


If Not Intersect(Target, Sheets(Target.Worksheet.Name).Range("b4:b4")) Is Nothing Then
If Target = "" Then Exit Sub
With Sheets("Feuil3")
dc1 = .Cells(Target.Offset(0, -1) + 3, Rows(Target.Offset(0, -1) + 3).Cells.Count).End(xlToLeft).Column + 1
.Cells(Target.Offset(0, -1) + 3, dc1) = "X"
End With
With Sheets("Feuil2")
.Cells(Target.Offset(0, -1) + 3, 3) = Target.Value
End With
End If



End Sub

PS : la première ligne pour les ref est la ligne 4, d'où le coefficient 3.
A tester

JP

 

[bpol]

Re : copier cellules dans une autre feuille avec meme réf.

Bonjour,

Merci jp14.
avide d'apprendre la syntaxe des macros,
deux questions concernant la procédure afin de la comprendre

1 que faut il modifier pour que se ne soit pas automatique mais manuel ( car doit être appeler par une autre macro) donc déjà je pense que l'on doit supprimer que c'est suite à la modification de B4?

2 si je change la position du nombre de réf (c'est à dire B4) qu'est qu'il faut modifier comme réf dans la procédure?
peut être m'écrire un code comme exemple avec positionnement juste au dessus du titre réf cela me permettra de comparer les 2 codes

Merci
Bpol

 

[jp14]

Re : copier cellules dans une autre feuille avec meme réf.

Bonjour

Un exemple de macro

Sub essai()
Dim target As Range
Dim dc1 As Long
With Sheets("Feuil3")
Set target = .Range("b4") ' à modifier si on change de cellule

dc1 = .Cells(target.Offset(0, -1) + 3, Rows(target.Offset(0, -1) + 3).Cells.Count).End(xlToLeft).Column + 1
.Cells(target.Offset(0, -1) + 3, dc1) = "X"
End With
With Sheets("Feuil2")
.Cells(target.Offset(0, -1) + 3, 3) = target.Value
End With

End Sub

Bonne journée
JP

 

[bpol]

Re : copier cellules dans une autre feuille avec meme réf.

Re,
merci JP 14 9à me convient parfaitement dans mon ex

Bpol

 

[bpol]

Re : copier cellules dans une autre feuille avec meme réf.

RE,

j'ai voulu l'intégrée dans mon fichier et là cata!

je me mélange avec les réf de cellules avec target. Offset(0, -1) + 3, 3) et target.Offset(0, -1) + 3

peux tu m'expliquer le rôle de chaque chiffre afin de comprendre la macro
A+


Bpol

 

[jp14]

Re : copier cellules dans une autre feuille avec meme réf.

Bonsoir

RE,

jje me mélange avec les réf de cellules avec target. Offset(0, -1) + 3, 3) et target.Offset(0, -1) + 3

peux tu m'expliquer le rôle de chaque chiffre afin de comprendre la macro
A+
Bpol

Dans le fichier de base
la référence 1 de la feuille 1 correspondait à la ligne 4 dans la les autres feuilles d'ou le cefficient +3 (1+3=4)

L'offset correspond à un décalage.
La donnée étant en b4 , la référence en A4 donc partant de b4 il faut enlever 1 au numéro de colonne.

Offset(ligne,colonne)

JP

 

[bpol]

Re : copier cellules dans une autre feuille avec meme réf.

RE,
Merci

Bpol