Recopie automatique d'une sélection de cellules dans un autre onglet

bonjour tijuana1254, bonjour le forum
question :
est ce que la feuille budget sera toujours identique à la feuille planning ?
cordialement
galougalou

Bonjour
Ci joint ma solution
A+ François

bonjour françois
je suis moins rapide que toi
bonjour tijuana1254
ma solution
la colonne h est masquée
un bouton macro pour les mise à jours.
ne recopie que les données qui ne figurent pas dans la feuille budget ce qui garde les données présentent dans la feuille budget comme une sauvegarde
cordialement
galougalou

trop vite j'ai oublié le fichier joint le voici

Bonjour tijuana, les participants à ce fil, le forum,
Je me suis permis d’adapter un de mes fichiers à ton exemple. Le code permet d’éviter les doublons sur la référence, et vérifie l’inscription de chiffres uniquement pour la référence, le prix ht, et le colisage.
Si les données, pour la Disponibilité et la Gamme sont fixes, tu peux remplacer les TextBox par des ComboBox.
Cordialement,
Bernard

fanfan38 à dit:

Bonjour
Ci joint ma solution
A+ François

Cliquez pour agrandir...

Bonjour François,
Merci pour ton retour, je n'avais pas initialement penser à cela, mais c'est une piste très intéressante même si ce n'est pas tout à fait adapté à ma demande. En tout cas cela me fait penser à une évolution future dont je pourrais faire évoluer le document. Merci infiniment pour ton temps.

GALOUGALOU à dit:

trop vite j'ai oublié le fichier joint le voici

Cliquez pour agrandir...

Bonjour Galougalou,

C'est pile poil ce que je voulais, c'est top. Je vais tenter de comprendre comment le code est articulé si d'aventure je devais rajouter des colonnes dans cette duplication ou changer les noms. En tout cas à court terme, c'est exactement ce dont j'avais besoin. Merci de ton aide. Ce forum et les membres qui donnent de leur temps est incroyable. Merci !

bbb38 à dit:

Bonjour tijuana, les participants à ce fil, le forum,
Je me suis permis d’adapter un de mes fichiers à ton exemple. Le code permet d’éviter les doublons sur la référence, et vérifie l’inscription de chiffres uniquement pour la référence, le prix ht, et le colisage.
Si les données, pour la Disponibilité et la Gamme sont fixes, tu peux remplacer les TextBox par des ComboBox.
Cordialement,
Bernard

Cliquez pour agrandir...

Bonjour Bernard,

Merci beaucoup pour ton aide. Ta proposition est infiniment plus ambitieuse que mon problème initial et, là encore, cela me fait réfléchir à professionnaliser mon document. Encore merci pour ton aide précieuse.

bonjour tijuana

si tu rajoutes des colonnes dans la feuille onglet avant la colonne H il faudra modifier la macro dans le classeur pour l’informer de l’éventuelle nouvelle position de colonne avec formule

dans la colonne H des formules sont cachées.
si tu rajoutes des colonnes dans la feuille onglet avant la colonne h il faudra modifier la macro
dans la colonne h des formules sont cachées.

dans la macro
If UCase(Sheets("Planning").Range("H" & i)) = "VRAI" Then
H correspond à la position des formules dans la feuille planning


Cells(ligne, 1) = Sheets("Planning").Cells(i, 1)
Cells(ligne, 2) = Sheets("Planning").Cells(i, 2)
Cells(ligne, 3) = Sheets("Planning").Cells(i, 3)

ci dessus dans la feuille d'origine les infos sont récupérés sur le n° de colonne Cells(ligne, 1) = Sheets("Planning").Cells(i, 1) uniquement si les valeurs ne sont pas présentes dans la feuille Budget

dans la feuille de destination les infos sont collés sur le n° de colonne (la ligne s'adapte )
Cells(ligne, 1) = Sheets("Planning").Cells(i, 1)

tu peux en origine récupérer autant de colonne que souhaité et en destination les coller a un endroit différent ex
Cells(ligne, 4) = Sheets("Planning").Cells(i, 12)
cordialement
galougalou

bonjour tijuanan
une coquille dans la macro il manque un +1,actuellement une ligne est effacée

remplace

li = Sheets("Planning").Cells(5000, 1).End(xlUp).Row ' a partir de la ligne 500 TROUVE LA 1ER CELLULE VIDE EN REMONTANT DANS LA COLONNE 7 (G)
ligne = Sheets("Budget").Cells(5000, 1).End(xlUp).Row

par

li = Sheets("Planning").Cells(5000, 1).End(xlUp).Row ' a partir de la ligne 500 TROUVE LA 1ER CELLULE VIDE EN REMONTANT DANS LA COLONNE 7 (G)
ligne = Sheets("Budget").Cells(5000, 1).End(xlUp).Row + 1
cordialement
galougalou

GALOUGALOU à dit:

bonjour tijuanan
une coquille dans la macro il manque un +1,actuellement une ligne est effacée

remplace

li = Sheets("Planning").Cells(5000, 1).End(xlUp).Row ' a partir de la ligne 500 TROUVE LA 1ER CELLULE VIDE EN REMONTANT DANS LA COLONNE 7 (G)
ligne = Sheets("Budget").Cells(5000, 1).End(xlUp).Row

par

li = Sheets("Planning").Cells(5000, 1).End(xlUp).Row ' a partir de la ligne 500 TROUVE LA 1ER CELLULE VIDE EN REMONTANT DANS LA COLONNE 7 (G)
ligne = Sheets("Budget").Cells(5000, 1).End(xlUp).Row + 1
cordialement
galougalou

Cliquez pour agrandir...

Un grand merci pour ton aide inestimable. Excellente journée !

bbb38 à dit:

Bonjour tijuana, les participants à ce fil, le forum,
Je me suis permis d’adapter un de mes fichiers à ton exemple. Le code permet d’éviter les doublons sur la référence, et vérifie l’inscription de chiffres uniquement pour la référence, le prix ht, et le colisage.
Si les données, pour la Disponibilité et la Gamme sont fixes, tu peux remplacer les TextBox par des ComboBox.
Cordialement,
Bernard

Cliquez pour agrandir...

Merci Beaucoup Bernard, pour ta proposition. Là aussi elle est peut être un peu plus ambitieuse que ce que mes besoins nécessitaient. Mais je pense que cela me sera utile dès lors que je voudrais améliorer mon document initial. En tout cas, c'est top.