récuper une valeur et le format d'une cellule

V

vekmort

XLDnaute Occasionnel

• 12 Avril 2006

• #2

Yo,

Pô easy, mais voici un petit code :

Sub Copier_Valeurs_et_Formats_En_Liste_Sur_Feuille2()
Selection.Copy
Sheets('Feuil2').Range('A65536').End(xlUp).Offset(1, 0).PasteSpecial (xlValues)
Sheets('Feuil2').Range('A65536').End(xlUp).Offset(0, 0).PasteSpecial (xlFormats)
Application.CutCopyMode = False
End Sub

Ceci n'est pas automatique, mais il est possible de le faire de beaucoup de façons. Ca dépend de ce que l'on recherche.

vekmort sans soif :ermm:

 

Vote positif 0 Vote négatif

A

alexco

Guest

• 12 Avril 2006

• #3

Merci mais je suis pas très calé dans l'utilisation des codes. Je cherchait une fonction à appliquer sur la cellule.

De plus, il est important que la récupération du format se fasse automatiquement.

Si je change la couleur du vert au rouge cela doit aussi apparaitre sur la cellule reliée.

 

Vote positif 0 Vote négatif

A

alexco

Guest

• 12 Avril 2006

• #4

Merci mais je suis pas très calé dans l'utilisation des codes. Je cherchait une fonction à appliquer sur la cellule.

De plus, il est important que la récupération du format se fasse automatiquement.

Si je change la couleur du vert au rouge cela doit aussi apparaitre sur la cellule reliée.

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 12 Avril 2006

• #5

Bonjour Alexco, Vekmort, Pascal, le forum

Alexco, comment est déterminée la cellule d'origine?
manuellement pour la valeur et la couleur?
par formule pour la valeur?
par format conditionnel pour la couleur?

sinon mets un fichier exemple, ce sera plus simple pour voir la meilleure solution.

A+

 

Vote positif 0 Vote négatif

A

alexco

Guest

• 12 Avril 2006

• #6

les valeurs et le format dans la cellule source sont entrés manuellement.

Merci de ton aide

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 12 Avril 2006

• #7

Re

voici un code simple à mettre dans le module de la feuille origine, remplaces l'adresse A1 par celle que tu veux, les valeurs et formats seront copiés sur la feuille de destination quand tu quitteras la feuille d'origine.tu peux remplacer sheets(2) (la deuxième feuille du classeur) par sheets('nomfeuille')

Cordialement, A+

Code:

Private Sub Worksheet_Deactivate()
    Me.Range('A1').Copy Destination:=Sheets(2).Range('A1')
End Sub

 

Vote positif 0 Vote négatif

A

alexco

Guest

• 26 Avril 2006

• #8

Merci ça marche !!

Excellent

 

Vote positif 0 Vote négatif