transfer intersection résultat ré-utilisée transfer sans efacer le premier transfer

[agentarcher2009]

Bonjour

Il s'agit d'une production journalière inscrite dans une fenêtre (cellule A5 issue d'un premier calcul )en A6 et A7 s'inscrit manuellement le n° de la machine et la Semaine, ensuite ce qui est en A5 doit se transférer sur la bonne semaine et la bonne machine dans la 2ème feuille.,
MAIS plus fort j'aimerais utiliser la même cellule (A5)qui m'a servis a transférer la première donnée sans effacer le résultat inscrit dans la 2ème feuille sous la bonne intersection ( ligne semaine et colonne n° de machine )

Merci d'avance pour vos réponses.
Meilleures salutations

 

[ChTi160]

Re : transfer intersection résultat ré-utilisée transfer sans efacer le premier tran

Salut agentarcher2009
Bonsoir le Fil

Bonsoir le Forum

En pièce jointe une première approche

Sub Test()
 With Worksheets("Donnée")
    Tabtemp = .Range("A5:C5").Value [COLOR=DarkGreen]'on recupere les donnees[/COLOR]
 End With
 With Worksheets("resultat") [COLOR=DarkGreen]'dans la feuille cible[/COLOR]
  Set MaPlageSem = .Range(.Cells(1, 2), .Cells(1, .Cells(1, 255).End(xlToLeft).Column))
 [COLOR=DarkGreen]'on determine la plage des numeros de Semaine[/COLOR]
    Set MaPlageNum = .Range(.Cells(2, 1), .Cells(.Cells(65536, 1).End(xlUp).Row, 1)) 
'on determine la plage des numeros
   Set C = MaPlageSem.Find(Tabtemp(1, 3))
   [COLOR=DarkGreen] 'dans cette plage on recherche la donnee Semaine[/COLOR]
       If Not C Is Nothing Then ColSem = C.Column[COLOR=DarkGreen]
    'si trouvé on recupere le numero de la colonne[/COLOR]
         Set L = MaPlageNum.Find(Tabtemp(1, 2))[COLOR=DarkGreen] 
    'dans cette plage on recherche la donnee N°[/COLOR]
       If Not L Is Nothing Then NLgn = L.Row[COLOR=DarkGreen] 
    'si trouvé on recupere le numero de la ligne[/COLOR]
               .Cells(NLgn, ColSem) = .Cells(NLgn, ColSem) + Tabtemp(1, 1) [COLOR=DarkGreen]
    'ajoute à la cellule ainsi determinee[/COLOR]
 End With
 
End Sub

Le Fichier :Regarde la pièce jointe Transfer vers intersetionV1.xls

Bonne fin de Soirée

 

[agentarcher2009]

Re : transfer intersection résultat ré-utilisée transfer sans efacer le premier tran

Salut Jean-Marie merci pour tout
c'est parfait nous l'avons mis en pratique sa fonctionne bien , de plus de pouvoir ré-utiliser,
la cellule de départ c'est le top chapeau, de ce fait je vais m'inscrire a un cours VBA.
Amicalement Serge