× 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
31,75 €Clé USB 3.0 Sandisk Ultra 256 Go à 31,75 € livrée
Valable jusqu'au 30 Mai

Amazon Allemagne propose la clé USB Sandisk Ultra d'une capacité de 256 Go à 27,23 € (avec la TVA ajustée). Comptez 4,52 € pour la livraison en France soit un total de 31,75 € livrée alors qu'on la trouve ailleurs autour de 50 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
132,86 €Smartphone 6,3 pouces Motorola One Macro (HD+, 4 Go RAM, 64 Go) à 132,86 € livré
Valable jusqu'au 29 Mai

Amazon Italie fait une vente flash sur le smartphone 6,2 pouces Motorola One Macro à 127,78 € (avec la TVA ajustée). Comptez 5,08 € pour la livraison en France soit un total de 132,86 € livré alors qu'on le trouve ailleurs à plus de 160 €. Capturez les plus petits détails avec le Motorola Moto One Macro. Ce smartphone idéal pour la photo vous offre tout ce dont vous rêvez d'un smartphone, un grand écran 6.2" à résolution HD+ de 720 x 1520 pixels, un processeur Helio P70 Octo-Core cadencé à 2 GHz et 4 Go de RAM pour vous suivre au quotidien. Le tout tourne sous Android 9 au français dès le premier démarrage. L'appareil bénéficie d'une garantie européenne de 2 ans.


> Voir l'offre
19,99 €Switch Gigabit Netgear GS308 8 ports à 19,99 €
Valable jusqu'au 30 Mai

Amazon fait une vente flash sur l'excellent switch Netgear GS308 Gigabit 8 ports 10/100/1000 qu'il propose à 19,99 € alors qu'on le trouve ailleurs autour de 29 €.


> 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