Formule vcell

[Dennnisss]

Bonjour a tous

J'ai fait un code pour mettre en fond couleur gris sur un joueur Sub

Je veut dire qu'il cherche avec le vcell une cellule = Sub si oui change la couleur de fond sinon passe

voici mon code je cherche a fermer la ligne du
Range(vCell.Offset(0,-1),vCell.Offset(0,0)). ???????????

Sub Bouton1_QuandClic()
Sheets("Roses Regulier").Select
Dim vCell As Range
For Each vCell In Range("A10:A140")
If (vCell) - "Sub" Then
Range(vCell.Offset(0,-1),vCell.Offset(0,0)).
With Selection.Interior
.ColorIndex = 40
Selection.Font.Bold = True
.Pattern = x1Solid
End With
Next vCell
Range("A1").Select
End Sub


Alors j'aurais besoin de votre
Merci
dennisss😉 😉










Range(vCell

 

[JYLL]

Re : Formule vcell

Bonsoir Denis et le Forum,

Essaie peut être cela:

Sub Bouton1_QuandClic()
Sheets("Roses Regulier").Select
  Dim vCell As Range
    For Each vCell In Range("A10:A140")
     If (vCell) <> "Sub" Then ' Ici voir si <> ou =
      Range(vCell.Offset(0, 0), vCell.Offset(0, 1)).Select 'Ici voir pour la sélection
       With Selection.Interior
       .ColorIndex = 40
       Selection.Font.Bold = True
       .Pattern = xlSolid
       End With
       End If
    Next vCell
Range("A1").Select
End Sub

bon test.

 

[JCGL]

Re : Formule vcell

Bonsoir à tous,

Bonjour a tous

J'ai fait un code pour mettre en fond couleur gris sur un joueur Sub

Je veut dire qu'il cherche avec le vcell une cellule = Sub si oui change la couleur de fond sinon passe

voici mon code je cherche a fermer la ligne du
Range(vCell.Offset(0,-1),vCell.Offset(0,0)). ???????????

Sub Bouton1_QuandClic()
Sheets("Roses Regulier").Select '''' Tu n'as pas de feuilles de ce nom !!!
Dim vCell As Range
For Each vCell In Range("A10:A140")
If (vCell) - "Sub" Then """ ???????
Range(vCell.Offset(0,-1),vCell.Offset(0,0)).
With Selection.Interior
.ColorIndex = 40
Selection.Font.Bold = True
.Pattern = x1Solid ''' xlSolid
End With
Next vCell
Range("A1").Select
End Sub

Je regarde ton fichier

A+

 

[Bebere]

Re : Formule vcell

bonsoir Denis
une solution

Sub Bouton1_QuandClic()
Dim vCell As Range
Sheets("Roses Regulier").Select
With ActiveSheet
For Each vCell In .Range("A10:A140")
If vCell = "Sub" Then
With vCell
.Interior.ColorIndex = 40
.Font.Bold = True
.Interior.Pattern = xlPatternSolid
End With
End If
Next vCell
End With

Range("A1").Select
End Sub

à bientôt

 

[wilfried_42]

Re : Formule vcell

bonjour dennnisss

Range(vCell.Offset(0,-1),vCell.Offset(0,0)).
With Selection.Interior

si tu mets .select, c'est ok, mais je n'aime pas les select lol, ca oblige une action physique dans le classeur qui fait perdre du temp

donc je te conseille :

With Range(vCell.Offset(0,-1),vCell.Offset(0,0))
.interior.colorindex......

edit: oups collision : bonjour bebere

re-edit : franchement je suis tres lent lol : c'est plus une collision, mais un carembollage : Bonjour JC, JY

 

[JCGL]

Re : Formule vcell

Re,
Salut Wil 🙂,
Salut Bebere,
Salut JYLL

Une autre solution


A+

 

[Dennnisss]

Re : Formule vcell

Salut Jyll

Heureux de te voir sur le site , j'ai essayer ton code c'est correct mon erreur est que lorsqu'il va dans une cellule vide alors il change la couleur meme si il n'a rien d'ecrit tel que Reg ou Sub

Donc il faudrait pas qu'il change les lignes vide seulement les ligne qui correspond a Sub

Merci aussi a JCGl , Bebere , Wilfried 42 de leur participation
Alors messieur j'ai encore besoin de vous
essayer le code a Jyll et changer en meme temps mon erreur du nom de la feuille j'ai monter ca trop rapide j,avais hate de vous l'envoyer

merci dennnisss😉 😉

 

[Dennnisss]

Re : Formule vcell

Rebonjour messieur je vient juste de trouver ma reponse

J,ai juste change le test par = "Sub" au lieu de <> "Sub"

et cela marche alors merci de votre aide encore une fois vous m'avez donner
la solution a mon probleme et j,apprecie enormement car grace a vous
j'apprend et modifie mon dossier de facon tres efficace et plus rapide

merci a+

dennnisss😉 😉

 

[wilfried_42]

Re : Formule vcell

re: à tous

si ton code est comme celui que tu as montré, il doit normalement plante des qu'il y a un sub, à moins qu'il soit necessaire que j'aille me coucher.......

For Each vCell In Range("A10:A140") teste toute les cellules de la colonne A, de la ligne 10 à 140

Range(vCell.Offset(0,-1),vCell.Offset(0,0)).--> c'est bien une selection multiple ???????

vCell.Offset(0,-1) devrait planter

 

[Dennnisss]

Re : Formule vcell

Salut JCGL

Wow beau petit programme il fait tres bien sont devoir , j'ai bien sure
garder se programme en banque pour son efficacite et il repond bien a ma demande

alors merci a toi JCGL et apprecie ton aide

Dennnisss😉 😉

 

[JCGL]

Re : Formule vcell

Re,

Content que nous ayons pu t'aider 🙂

Le même mais tu choisis le mot à colorier en Q1

A+ à tous

PS : Wil tu as école demain ne te couche pas trop tard 😛

 

[wilfried_42]

Re : Formule vcell

re:

JC 🙂 , demain je ne travaille pas, mardi et mercredi non plus 😀
c'est ce soir que je suis au boulot, et deja fatigué............🙄