Macro pour coller des données dans une base même classeur...

[Christian0258]

Bonjour à tout le forum,

J'ai, une nouvelle fois, besoin de vos compétences en VBA. Je souhaiterais pouvoir replacer des données vers une autre feuille contenant la base de données (même classeur)...

voir fichier...

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian

 

[Christian0258]

Re : Macro pour coller des données dans une base même classeur...

Re, le forum,

Je reviens vers vous...pas d'idée...lol
Je n'ai toujours pas réussi à régler ce problème...

Merci pour votre aide, si précieuse,

Bien à vous,
Christian

 

[job75]

Re : Macro pour coller des données dans une base même classeur...

Bonjour Christian0258,

Voir le fichier joint avec cette macro :

Sub Report()
Dim code$, cel As Range, valeurs, lig, col
code = [G2]
Set cel = [F65536].End(xlUp)
valeurs = cel.Offset(, 1).Resize(, 3).Value 'tableau
With Sheets("Archives")
  lig = Application.Match(cel, .[F:F], 0)
  col = Application.Match(code, .[2:2], 0)
  If IsError(lig) Or IsError(col) Then MsgBox "Pas trouvé !", 48: Exit Sub
  .Cells(lig, col).Resize(, 3) = valeurs
  Application.Goto .Cells(lig, col).Offset(, 2) 'facultatif, sélection de la quantité
End With
End Sub

A+

 

[Christian0258]

Re : Macro pour coller des données dans une base même classeur...

Re, le forum, job75,

Merci, job75, pour le boulot, quel talent...c'est impec.

Bien à toi,
Christian

 

[Christian0258]

Re : Macro pour coller des données dans une base même classeur...

Re, le forum, job75,

Comment modifier ta macro, pour copier systématiquement dans la feuille Archives ; le Code, l'Article et la Qté et non uniquement la Qté...

Bien à toi,
Christian

 

[job75]

Re : Macro pour coller des données dans une base même classeur...

Re,

Regardez bien la fin du code.

Le tableau valeurs constitué de 3 éléments est transféré sur 3 cellules...

Mais si vous voulez sélectionner ces 3 cellules, utiliser ce code :

Application.Goto .Cells(lig, col).Resize(, 3) 'facultatif, sélection des 3 cellules

Je pense que vous saurez où le placer 🙂

A+

 

[Christian0258]

Re : Macro pour coller des données dans une base même classeur...

Re, le forum

Ok, merci, job75.

J'ai besoin de faire évoluer mon appli, en effet dans le même esprit du travail de job75, j'aimerais ajouter des qtéq dans une colonne feuille Articles...

voir fichier...

Merci pour votre aide si précieuse.

Bien à vous,
Christian

 

[Christian0258]

Re : Macro pour coller des données dans une base même classeur...

Re, le forum,

Je me permets de réafficher mon message, à vous lire...

Merci pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian

 

[job75]

Re : Macro pour coller des données dans une base même classeur...

Bonjour Christian,

Pour ce nouveau problème, voici la macro complétée :

Sub Report()
Dim code$, affaire As Range, Qte As Range, valeurs, lig1,  col, lig2
code = [G2]
Set affaire = [F5]
Set Qte = [I4]
If Not IsNumeric(CStr(Qte)) Then _
  MsgBox "Entrez une valeur numérique en I4...": Qte.Select: Exit Sub
valeurs = affaire.Offset(, 1).Resize(, 3).Value 'tableau
With Sheets("Archives")
  lig1 = Application.Match(affaire, .[F:F], 0)
  col = Application.Match(code, .[2:2], 0)
  If IsError(lig1) Or IsError(col) Then _
    MsgBox "Pas trouvé dans 'Archives' !", 48: Exit Sub
  lig2 = Application.Match(affaire.Offset(, 1), Sheets("Articles").[A:A], 0)
  If IsError(lig2) Then _
    MsgBox "Pas trouvé dans 'Articles' !", 48: Exit Sub
  .Cells(lig1, col).Resize(, 3) = valeurs
End With
With Sheets("Articles")
  .Cells(lig2, 4) = .Cells(lig2, 4) + Qte
End With
Qte = ""
End Sub

Fichier joint.

A+

 

[Christian0258]

Re : Macro pour coller des données dans une base même classeur...

Re, le forum, job75,

Tout d'abord, un grand merci job75, pour ton aide.

Dis-moi:
Le report de la Qté inscrite en I4 s'ajoute bien dans la feuille Articles, mais sauf erreur la Qté définitive en I5 n'est pas modifiée dans la feuille Archives ??

Peux-tu me dire.

à te lire, encore merci.
Christian

 

[job75]

Re : Macro pour coller des données dans une base même classeur...

Re,

J'ai modifié à 15h26 le fichier du post #9.

Utilise le dernier...

A+

 

[Christian0258]

Re : Macro pour coller des données dans une base même classeur...

Re, le forum,

Ok, job75, merci infiniment pour cette macro, c'est impec.

Salut l'artiste,

Bien à toi,
Christian