Microsoft 365 Copier sous condition format cellule autre feuille dans cellule feuille active

TooFatBoy

XLDnaute Barbatruc

• 10 Avril 2021

• #2

Bonjour,

Juste une question en passant : on a le droit d'utiliser "ActiveCell" pour référencer une cellule d'une autre feuille que la feuille active ???
Ça donne quoi ActiveCell.Adress d'une feuille non active ?


En ce week-end ensoleillé, explose-toi bien ma petite usine à gaz !

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Avril 2021

• #3

Bonjour Marcel32,
Ca fait longtemps, j'espère que tu vas bien
"Ça donne quoi ActiveCell.Adress d'une feuille non active ?"
lol, j'en sais rien car mon code ne fonctionne pas ... je cherche ... je cherche

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Avril 2021

• #4

J'ai aussi tenté "ActiveCell.Adress d'une feuille non active" ... ça ne fonctionne pas non plus
Ou je n'ai pas su le coder comme il faut.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Avril 2021

• #5

J'ai fait un petit fichier test que je joins

 

Pièces jointes

• test.xlsm

  18.2 KB · Affichages: 10

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 10 Avril 2021

• #6

Usine à gaz à dit:

J'ai aussi tenté "ActiveCell.Adress d'une feuille non active" ... ça ne fonctionne pas non plus
Ou je n'ai pas su le coder comme il faut.

Cliquez pour agrandir...

C'était une vraie question de ma part : que renvoie comme résultat ActiveCell.Adress pour une feuille non active ?

ActiveCell fait, me semble-t-il, référence à la cellule active (d'où son nom ), de la feuille active.
Donc quand on utilise ActiveCell en faisant référence à une autre feuille que la feuille active, ça référence quelle cellule en réalité ???

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Avril 2021

• #7

Re-Bonjour,

le code :

VB:

Sub format()
'If Sheets("Table").Range(ActiveCell.Offset(0, 1)) = "Rappels" Then
    If Sheets("Table").Address.Offset(0, 1) = "Rappels" Then
    ActiveCell.Offset(0, 1).Interior.Color = RGB(255, 255, 204)
        With ActiveCell.Font
        .ColorIndex = xlAutomatic
        .Bold = True
    End With
    End If
'End If
End Sub

Renvoie une erreur :

lionel

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Avril 2021

• #8

Bonjour Lionel, Marcel32,

Il n'existe qu'une ActiveCell : la cellule active de la feuille active.

Le code n'étant pas du tout clair précise quelle(s) cellule(s) il faut modifier.

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Avril 2021

• #9

Bonjour Gérard,
Merci d'être encore la
Dans la feuille "Table" : Si la cellule à droite de la cellule active contient "Rappels",
Dans la feuille active, la cellule à droite de la cellule active est à mettre en "jaune".
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Avril 2021

• #10

Pour trouver la cellule active de la feuille "Table" il faut activer cette feuille :

VB:

Sub format()
Dim F As Object
Set F = ActiveSheet
Application.ScreenUpdating = False
Sheets("Table").Activate 'active la feuille
With ActiveCell.Offset(, 1)
    If .Text = "Rappels" Then
        .Interior.Color = RGB(255, 255, 204)
        With .Font
            .ColorIndex = xlAutomatic
            .Bold = True
        End With
    End If
End With
F.Activate 'retour à la feuille du bouton
End Sub

 

Pièces jointes

• test(1).xlsm

  19.2 KB · Affichages: 3

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Avril 2021

• #11

Re-Gérard,
Merci pour le fichier
Mais j'ai du mal m'expliquer (encore une fois lol)

C'est la cellule active à droite de la cellule active de la Feuille active (Feuile1) qu'il faudrait mettre en jaune si la cellule à droite de la cellule active de la Feuille "Table" contient "Rappels"
lionel

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Avril 2021

• #12

Oui j'avais mal lu alors utilise ce fichier (2) :

VB:

Sub format()
Dim F As Object
Set F = ActiveSheet
Application.ScreenUpdating = False
Sheets("Table").Activate 'active la feuille
If ActiveCell.Offset(, 1).Text = "Rappels" Then
    F.Activate 'retour à la feuille du bouton
    With ActiveCell.Offset(, 1)
        .Interior.Color = RGB(255, 255, 204)
        With .Font
            .ColorIndex = xlAutomatic
            .Bold = True
        End With
    End With
End If
End Sub

 

Pièces jointes

• test(2).xlsm

  19.3 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Avril 2021

• #13

Re-Gérard,

Evidemment (quand j'arrive à bien expliquer) ... ça marche super bien lol,
Encore un gros merci à toi
Mon erreur était que j'ai tenté (j'y suis depuis ce matin) de faire un code sans activer la feuille "Table" mais apparemment c'est pas possible.
Merci Gérard,
Bon WE,
lionel

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 10 Avril 2021

• #14

Usine à gaz à dit:

Mon erreur était que j'ai tenté (j'y suis depuis ce matin) de faire un code sans activer la feuille "Table"

Cliquez pour agrandir...

C'est le point vers lequel j'essayais de t'aiguiller.

 

Vote positif 0 Vote négatif