remplacer le Text dans un code pour pouvoir saisir des nombres dans une cellule

job75

XLDnaute Barbatruc

• 9 Mars 2012

• #2

Re : remplacer le Text dans un code pour pouvoir saisir des nombres dans une cellule

Rebonsoir Pascal,

Pas claire ton affaire.

Pour que Evaluate(cel.Offset(, -1).Text) puisse avoir la propriété Interior, il faut que ce soit un Range.

Donc que la cellule cel.Offset(, -1) contienne le texte d'une référence ou d'un nom de cellule nommée.

A+

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 9 Mars 2012

• #3

Re : remplacer le Text dans un code pour pouvoir saisir des nombres dans une cellule

Bonsoir

à tester

Code:

Sub test()
    Dim cel As Range
    For Each cel In Sheets("sauvegardes").[l:l].SpecialCells(xlCellTypeConstants, xlNumbers)    'colonne N° du bon d'attachement
        cel.Offset(, -1).Interior.ColorIndex = 6    'jaune
    Next
End Sub

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 9 Mars 2012

• #4

Re : remplacer le Text dans un code pour pouvoir saisir des nombres dans une cellule

bonsoir
je ne comprends rien j'ai 3 macros identiques pour 3 colonnes différentes et 3 couleurs différentes il y en a q'une qui fonctionne
gilbert ta proposition ne fonctionne pas sur mon fichier
j'ai eu au mieux une couleur qui est venue dans la colonne K de la feuille sauvegardes (?)
d'ailleurs je ne comprends même pas comment marche la macro qui fonctionne bien
qu'est qui lui indique la cellule à colorer et la feuille (la macro n'est pas de moi)
ça y est je sais pourquoi un seul code fonctionne
je vais remedier à ça

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 9 Mars 2012

• #5

Re : remplacer le Text dans un code pour pouvoir saisir des nombres dans une cellule

bin non j'ai fais fausse route ça ne fonctionne pas
pas grave je colorerai moi même les cellules (sic!)

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 9 Mars 2012

• #6

Re : remplacer le Text dans un code pour pouvoir saisir des nombres dans une cellule

la macro cherche dans la colonne L de la feuille "sauvegardes" un nombre quand il est trouve la macro colorie la cellule (colonne -1 ) c'est à dire K en jaune

voilà

 

Vote positif 0 Vote négatif