× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Comment transférer texte et couleur de cellule ?Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
michel70
  Posté le 09/05/2010 @ 14:49 
Aller en bas de la page 
Petit astucien

Bonjour à tous.

Je suis sur vista familial prémium,et excel 2007.

Je désire ,dans un même classeur,enregistrer ,des données texte,et couleurs de cellules,dans le feuillet A,colonne H5 à H35,et qu'une copie conforme se fasse simultanément feuillet B,colonne I3 à I33.

J'ai essayé plusieurs méthodes,mais je ne réussis que le transfert des données texte,les couleurs ne se transfèrent pas.

Quelqu'un a-t-il une solution ?

Merci de bien vouloir me la communiquer.

A plus.

Michel70

Publicité
metasuz
 Posté le 09/05/2010 à 16:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

As-tu essayé un copie puis collage spécial. Avec collage spécial tu indiques ce que tu veux copier par exemple format et formules{#}

ferrand
 Posté le 09/05/2010 à 17:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Peut-être une procédure évènementielle genre :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, j%
i = Target.Row
j = Target.Column
If i >= 5 And i <= 35 And j = 8 Then
With Worksheets("B").Cells(i - 2, j + 1)
.Value = Target.Value
.Interior.ColorIndex = Target.Interior.ColorIndex
End With
End If
End Sub

A mettre dans le module de la feuille "A". Remplacer "B" par le nom de la feuille cible.

Bonne soirée.

michel70
 Posté le 09/05/2010 à 20:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir metasuz et ferrand

Merci à vous de venir à mon secours.

Le collage spécial,je l'ai essayé de plusieurs façons,sans obtenir satisfaction.

Ta solution,ferrand,est beaucoup plus satisfaisante en ce qui concerne la copie des données texte,mais échoue comme mes précédentes tentatives sur le transfert des couleurs.Les couleurs variant avec le contenu,selon les critères retenus ,choisis dans la mise en forme conditionnelle,ceci explique peut-être celà !

Mais,je suis bien incapable de le dire.

Pour insérer ton code dans le module vba,je vais avoir encore droit aux fenètres d'erreur,car j'y ai déjà un code "private sub worksheet_selection,etc..."et j'ai déjà galéré et échoué sur ce sujet.Il y a bien les aides ,mais elles s'adressent à des gens beaucoup expérimentés que moi !

Encore merci,et,à plus.

Michel70

ferrand
 Posté le 09/05/2010 à 23:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Tu aurais dû préciser qu'il s'agissait d'un MFC. Il faut procéder autrement : et mettre les mêmes couleurs...

La procédure ne porte pas sur le même évènement, sous réserve du contenu de l'autre les deux devraient coexister.

A+

michel70
 Posté le 09/05/2010 à 23:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir ferrand

Il se fait tard,je ferai mes essais demain

Encore merci,bonne nuit,et,à plus.

Michel70

Mytå
 Posté le 10/05/2010 à 00:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le forum

Cette fonction retourne la valeur du format actif d'une mise en forme conditionnelle.
Avec la fonction de la démo, deux valeurs peuvent êtres retournées.

  • Mode = 0 : retourne la valeur de Interior.ColorIndex
  • Mode = 1 : retourne la valeur de Interior.Color

Public Function CouleurMFC(RG As Range, Optional Mode As Byte = 0) As Variant
Dim e As Long, i As Byte, LoTest As Boolean
Dim LoMFC As FormatCondition
Application.Volatile
'boucle sur le nombre de condition(s)
'Si pas de MFC .FormatConditions.Count renvoi 0
For i = 1 To RG.FormatConditions.Count
Set LoMFC = RG.FormatConditions(i)
If LoMFC.Type = xlCellValue Then
'tester le type de la formule entrée
Select Case LoMFC.Operator
Case xlEqual
LoTest = RG = Evaluate(LoMFC.Formula1)
Case xlNotEqual
LoTest = RG <> Evaluate(LoMFC.Formula1)
Case xlGreater
LoTest = RG > Evaluate(LoMFC.Formula1)
Case xlGreaterEqual
LoTest = RG >= Evaluate(LoMFC.Formula1)
Case xlLess
LoTest = RG < Evaluate(LoMFC.Formula1)
Case xlLessEqual
LoTest = RG <= Evaluate(LoMFC.Formula1)
Case xlNotBetween
LoTest = (RG < Evaluate(LoMFC.Formula1) Or RG > Evaluate(LoMFC.Formula2))
Case xlBetween
LoTest = (RG >= Evaluate(LoMFC.Formula1)) And (RG <= Evaluate(LoMFC.Formula2))
End Select
If LoTest Then
'Peu ajouter d'autre format si nécessaire,
'comme la bordure, la police etc..
Select Case Mode
Case 0
CouleurMFC = LoMFC.Interior.ColorIndex
Case 1
CouleurMFC = LoMFC.Interior.Color
End Select
Exit Function
End If
End If
Next i
CouleurMFC = 0
End Function

La formule pour l'utiliser est dans le style :

=CouleurMFC(A2)

A te relire

Mytå

michel70
 Posté le 10/05/2010 à 09:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Mytà

Je te remercie pour ton envoi,mais,là,j'aborde un sujet que je ne connais pas du tout,et la mise en application de cette fonction me semble difficile,car mes connaissances et mon expérience sont du niveau très élémentaire.

Néanmoins,c'est très sympa de ta part d'être intervenu(e),encore merci

Peut-être à plus

Michel70

michel70
 Posté le 10/05/2010 à 10:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour ferrand

La mise en service de ton code s'est déroulée sans problème,et le fonctionnement de copie simultanée des données fonctionne très bien.

Pour le transfert des couleurs,il s'est résolu de façon inattendue:

Au lieu de copier la couleur de A à B,c'est la couleur de B qui disparait.

Le but recherché étant le changement de couleur,selon les données enregistrées dans les cellules concernées,cette opération me convient.

Je marque le sujet résolu

Encore merci pour tout

Très cordialement

Michel70

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
76,99 €Kit de 16 Go (2 x 8 Go) de mémoire DDR4 PNY XLR8 3200 MHz à 76,99 €
Valable jusqu'au 13 Avril

Cdiscount fait une promotion sur le kit de 16 Go (2x8 Go) de mémoire DDR4 PNY XLR8 3200 MHz CL16 qui passe à 76,99 € alors qu'on le trouve ailleurs à plus de 90 €.


> Voir l'offre
124,94 €Disque dur Toshiba X300 5 To à 124,94 €
Valable jusqu'au 13 Avril

Materiel.net propose actuellement le disque dur Toshiba X300 5 To à 124,94 € alors qu'on le trouve ailleurs à partir de 150 €. Ce disque dur interne de 5 To est SATA 6 Gbps, possède 128 Mo de cache et dispose d'une vitesse de rotation de 7200 tpm. Une très bonne affaire. 


> Voir l'offre
249,99 €Ecran PC 27 pouces incurvé Asus VG27VQ (FullHD, 165 Hz, 1 ms, FreeSync) à 249,99 €
Valable jusqu'au 14 Avril

Fnac fait une promotion sur l'excellent écran 27 pouces pour joueurs Asus TUF Gaming VG27VQ qui passe à 249,99 € alors qu'on le trouve ailleurs autour de 300 €. Cet écran dispose d'une dalle FullHD (1920x1080 pixels) VA incurvée à LED, a un temps de réponse de 1 ms et un rafraichissement de 165 Hz avec ULMB (Ultra Low Motion Blur).


> Voir l'offre

Sujets relatifs
couleur ce cellule a écraser en insérant du texte
Comment changer la couleur de plusieur cellule
Comment agrandir un texte ?
Word : comment établir dans un texte ses propres marges de & et sous-& ?
Word 2007-Texte centré dans une cellule
Comment supprimer qq-mots dans un texte en PDF ?
Cellule de couleur
Comment verrouiller une cellule Excel 2007
(Macro Excel) Sélectionner cellule en fonction de sa couleur
Changement de couleur texte dans WordArt
Plus de sujets relatifs à Comment transférer texte et couleur de cellule ?
 > Tous les forums > Forum Bureautique