Autres Macro intelligente

[yugguy]

Bonjour à tous,

Je suis au bout de mes connaissances et je cherche plus futé que moi pour trouver la solution. Je travaille avec Excel 2007. Dans l'exemple ci-joint, j'ai une feuille "Source" qui est la base de données des matériaux utilisés et la feuille "Travail" qui sert à des calculs. Si j'ai un ou des produits à ajouter ce sera dans la feuille "source". Je voudrais créer une macro qui voyant la différence entre le nombre de produits dans la feuille "Source" et la feuille "travail", ajouterait le nombre de lignes requises; et ce pour chaque catégorie de produit. Est-ce possible ou dois-je toujours le faire manuellement, comme présentement.

Un énorme merci pour votre aide.

Bonne journée à tous.

Guy

 

[sylvanu]

Bonsoir Yugguy,
Si les deux bases Source Travail doivent être synchronisées, pourquoi ne pas recopier toute la liste Source dans Travail. Cela pourrait se faire à la sélection de la feuille Travail par exemple.

 

[sousou]

Bonsoir
Il me semble qu'en supprimant les données de la feuille travail et en les remplacant par ceux de la feuille source ce devrait faire l'affaire.
petite macro pour cette mise à jour
Sub maj()
With Sheets("travail")
Set zone = .Range(.Cells(6, 1), .Cells(.Cells(.UsedRange.Columns(1).Rows.Count + 7, 1).End(xlUp).Row, 2))
zone.Delete
End With
With Sheets("source")
Set zone = .Range(.Cells(6, 1), .Cells(.Cells(.UsedRange.Columns(1).Rows.Count + 7, 1).End(xlUp).Row, 2))
zone.Copy Sheets("travail").Range("a6")
End With
End Sub

 

[sylvanu]

Bonsoir tout le monde,
En PJ avec la macro qui s’exécute automatiquement à la sélection de la feuille Travail.
Recopie la base Source dans la base Travail.

 

[yugguy]

Merci beaucoup. J'applique une des deux.

 

[sylvanu]

Re,
Ce sont grosso modo les deux même.
Celle de Sousou se déclenche par un bouton que vous pouvez mettre dans Travail, la mienne se déclenche automatiquement lorsque vous sélectionnez la feuille Travail. Tout dépend ce que vous voulez faire.