vba - Copier uniquement les valeur (sans la mise en forme des cellules)

[kohta]

Bonjour,
j'ai un usf qui copie une plage de données renseignée dans une plage de données "destination".

Cependant, je ne parviens pas à indiquer à ma petite macro de ne copier que les valeurs renseignées, sans copier par la même occasion la couleur de fond de cellule, les bordures, la taille ect...

Quelqu'un aurait-il une idée?

Merci

🙂Cordialement🙂

 

[Cousinhub]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Bonjour,
plutôt que copier (.Copy), tu mets une égalité :

[E1] = [A1]

par exemple. Ici, la cellule E1 prend la valeur de A1, sans la taille, la couleur....

 

[kohta]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Ok, merci beaucoup, je vais essayer.

Cependant, à l'origine, la copie est effectué suite au Quand_Clic d'un bouton.
Puis-je utiliser ta méthode dans ce cas?

Cordialement

 

[Cousinhub]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Re-,
bien sûr, il ne faut pas copier, mais faire l'égalité des valeurs
mets ton code ici, si tu veux

 

[kohta]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

ok, merci

Voici la ligne de code en question:

Range("C4:C49").Copy Destination:=Cells(4, ComboBox1.ListIndex + 168)

 

[Cousinhub]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Re-,
non testé :

Cells(4, ComboBox1.ListIndex + 168).Value = Range("C4:C49").Value

 

[kohta]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Cela ne fonctionne pas 🙁
Et je viens de me rendre compte qu'il y a aussi une formule (provenant de la plage source) qui ne doit absolument pas être copiée...

j'essaye déséspérément de trouver un argument dans vba permettant de transcrire uniquement les valeurs...

Merci de ton aide en tout cas, et si jamais tu as une autre idée...

 

[Cousinhub]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Re-,
justement, le fait de mettre sous la forme :

[B1].value = [A1].value

ne fait que "copier" le résultat, et non la formule

Pour voir un peu plus, peux-tu joindre un fichier exemple, exempt de toutes données confidentielles?

 

[kohta]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Pas de problème.

En p.j un petit document "exemple" de ce que j'ai de mon coté...

 

[Cousinhub]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Re-,
essaie avec ceci :

    Range(Cells(4, ComboBox1.ListIndex + 4), Cells(9, ComboBox1.ListIndex + 4)).Value = Range("C4:C9").Value

 

[kohta]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

😎
Merci beaucoup, cela semble fonctionner à merveille.😀

J'ai cependant quelque problèmes pour interpréter la ligne de code que tu m'a fournie.😕

Est-ce que tu saurais m'expliquer de manière simplifiée cette ligne de code, afin que je puisse la transcrire sur mon document réel?

Merci encore

 

[Cousinhub]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Re-,

range(cells(1,1),cells(5,5)) équivaut à range("A1:E5")
Range(Cells(4, ComboBox1.ListIndex + 4), : ici, on sélectionne la première cellule qui nous intéresse (en fonction de la valeur du combobox), en ligne 4

Cells(9, ComboBox1.ListIndex + 4)).Value : ici la deuxième, en ligne 9

= Range("C4:C9").Value on "copie" les valeurs de cette zone

En gros, si ton combobox est Semaine 1, cela correspondrait à :

Range(cells(4,4),cells(9,4)) soit range("D4😀9")

 

[kohta]

Re : vba - protéger feuille, accès unique via usf

Merci beaucoup, j'ai réussi à tout "transcrire" à ma sauce.

En revanche, je souhaite protèger à la modification ma feuille, pour que seule l'usf soit capable d'inscrire des données dedans.

Comment dois-je procéder?

 

[Cousinhub]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Bonjour,
peut-être avec un code de la sorte :

ActiveSheet.Protect UserInterfaceOnly:=True

 

[kohta]

Re : vba - Copier uniquement les valeur (sans la mise en forme des cellules)

Merci de ta rapidité, je vais tester cette solution.

En revanche, un problème est apparu sur mon document, alors que cela fonctionnait hier.

Comme tu le sais, je souhaite protéger ma feuille de "données", cela implique donc un CommandButton de lancement de l'Usf "démarrer" sur une autre feuille.

J'ai donc utilisé ta ligne de code:

Range(Cells(4, ComboBox1.ListIndex + 4), Cells(9, ComboBox1.ListIndex + 4)).Value = Range("C4:C9").Value

et j'ai ajouté Sheets("nom_de_la_feuille_données").
avant chaque instruction "range" de la ligne de code, pour que la copie en question se fasse bien sur ma feuille "données" et non sur la feuille d'où j'ai lancé l'usf.

Cela ne fonctionne pas!
Comment puis-je indiquer cela de manière correcte?

Cordialement