Je sais que ça ne se fait pas ramener une ficelle existante.......mais pour
cette fois...
Comment faire pour coupler une seconde condition (disons pour la plage E26
à E30) dans la procédure qui suit ? Admettons que la condition doit être que
la
valeur de la cellule de la colonne E doit être = à "toto2".
Private sub_Work...change...blablabla
Dim c As Range
For Each c In Range("C26:C30")
Select Case c
Case "toto1"
Rows(c.Row).Interior.ColorIndex = 0
Case Else
Rows(c.Row).Interior.ColorIndex = 48
End Select
End Sub
Ma question n'était peut-être pas claire hier mais ce que je désire faire,
et ce
avec quoi j'ai de la difficulté, c'est de poser un SECONDE condition de façon
simultanée.
Non pas que ma valeur C soit "toto1" OU "toto2" dans le Range "C26:C30".
Mais bien que la valeur "toto1" soit présente dans le Range "C26:C30" en
même temps que la valeur "toto2" le soit dans le Range "E26:E30".
Et c'est là que le srcipt de ma valeur me fait défaut.....
La méthode de Pierre CFI me semble la plus appropriée et la plus simple bien que dans le cas où le format d'une ligne ait déjà été modifié par la rencontre de ces 2 conditions, elle ne peut faire l'opération contraire (remodification d'un format de ligne quand la condition n'est plus rencontrée suite à un nouveau changement de valeur).
Salutations !
Bon(jour) soir Après 16h et la niut tombant je ne sais plus que dire... bref. Effectivement, j'ai préféré jeter l'éponge car je n'ai pas compris ce qui pouvait provoquer cette inoprérance du copier/coller ( entre autre ?) Alors comme on m'a toujours dit " dans le doute abstiens-toi" , j'ai fait au mieux derrière ;o)))
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Alain CROS" a écrit dans le message de news:
Bonjour.
Je n'ai pas testé cette procédure mais j'ai déjà constaté parfois un effacement malencontreux du presse papier.
La solution consiste a bloquer le presse papier au début de la procédure puis de le libérer à la fin.
Private Declare Function OpenClipboard& Lib "user32" _ (ByVal hwnd&) Private Declare Function CloseClipboard& Lib "user32" ()
Sub LaProcQuiEffaceLeClipboard() OpenClipboard 0& ' ' Le code initial ici ' CloseClipboard End Sub
Alain CROS
"Pounet95" a écrit dans le message de news:
Halte au feu ! Suite à la la réponse sur l'autre fil, j'ai voulu reprendre la procédure. Elle a un effet pervers, on ne peut plus faire de copier/coller ;o((((( A mettre à la poubelle donc. -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
Merci à tous ceux qui ont apporté une suggestion.
La méthode de Pierre CFI me semble la plus appropriée et la plus simple bien
que dans le cas où le format d'une ligne ait déjà été modifié par la
rencontre de ces 2 conditions, elle ne peut faire l'opération contraire
(remodification d'un format de ligne quand la condition n'est plus rencontrée
suite à un nouveau changement de valeur).
Salutations !
Bon(jour) soir
Après 16h et la niut tombant je ne sais plus que dire... bref.
Effectivement, j'ai préféré jeter l'éponge car je n'ai pas compris ce
qui pouvait provoquer cette inoprérance du copier/coller ( entre autre ?)
Alors comme on m'a toujours dit " dans le doute abstiens-toi" ,
j'ai fait au mieux derrière ;o)))
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
unaCTOq4EHA.3120@TK2MSFTNGP12.phx.gbl...
Bonjour.
Je n'ai pas testé cette procédure mais j'ai déjà constaté parfois un
effacement malencontreux du presse papier.
La solution consiste a bloquer le presse papier au début de la procédure
puis de le libérer à la fin.
Private Declare Function OpenClipboard& Lib "user32" _
(ByVal hwnd&)
Private Declare Function CloseClipboard& Lib "user32" ()
Sub LaProcQuiEffaceLeClipboard()
OpenClipboard 0&
'
' Le code initial ici
'
CloseClipboard
End Sub
Alain CROS
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
eYkYHZh4EHA.2404@TK2MSFTNGP14.phx.gbl...
Halte au feu !
Suite à la la réponse sur l'autre fil, j'ai voulu reprendre la procédure.
Elle a un effet pervers, on ne peut plus faire de copier/coller ;o(((((
A mettre à la poubelle donc.
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
La méthode de Pierre CFI me semble la plus appropriée et la plus simple bien que dans le cas où le format d'une ligne ait déjà été modifié par la rencontre de ces 2 conditions, elle ne peut faire l'opération contraire (remodification d'un format de ligne quand la condition n'est plus rencontrée suite à un nouveau changement de valeur).
Salutations !
Bon(jour) soir Après 16h et la niut tombant je ne sais plus que dire... bref. Effectivement, j'ai préféré jeter l'éponge car je n'ai pas compris ce qui pouvait provoquer cette inoprérance du copier/coller ( entre autre ?) Alors comme on m'a toujours dit " dans le doute abstiens-toi" , j'ai fait au mieux derrière ;o)))
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Alain CROS" a écrit dans le message de news:
Bonjour.
Je n'ai pas testé cette procédure mais j'ai déjà constaté parfois un effacement malencontreux du presse papier.
La solution consiste a bloquer le presse papier au début de la procédure puis de le libérer à la fin.
Private Declare Function OpenClipboard& Lib "user32" _ (ByVal hwnd&) Private Declare Function CloseClipboard& Lib "user32" ()
Sub LaProcQuiEffaceLeClipboard() OpenClipboard 0& ' ' Le code initial ici ' CloseClipboard End Sub
Alain CROS
"Pounet95" a écrit dans le message de news:
Halte au feu ! Suite à la la réponse sur l'autre fil, j'ai voulu reprendre la procédure. Elle a un effet pervers, on ne peut plus faire de copier/coller ;o((((( A mettre à la poubelle donc. -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
Pounet95
Bonjour ( car je crois - 8 heures / Paris ) Toujours pas compris le pb du copier/coller, mais qu'importe. Le principal est dans l'échange et que chacun y trouve sinon son bonheur au moins un semblant de ce qu'il lui faut Cordialement
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Stéphan DuQuébec" a écrit dans le message de news:
Merci à tous ceux qui ont apporté une suggestion.
La méthode de Pierre CFI me semble la plus appropriée et la plus simple bien que dans le cas où le format d'une ligne ait déjà été modifié par la rencontre de ces 2 conditions, elle ne peut faire l'opération contraire (remodification d'un format de ligne quand la condition n'est plus rencontrée suite à un nouveau changement de valeur).
Salutations !
Bon(jour) soir Après 16h et la niut tombant je ne sais plus que dire... bref. Effectivement, j'ai préféré jeter l'éponge car je n'ai pas compris ce qui pouvait provoquer cette inoprérance du copier/coller ( entre autre ?) Alors comme on m'a toujours dit " dans le doute abstiens-toi" , j'ai fait au mieux derrière ;o)))
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Alain CROS" a écrit dans le message de news:
Bonjour.
Je n'ai pas testé cette procédure mais j'ai déjà constaté parfois un effacement malencontreux du presse papier.
La solution consiste a bloquer le presse papier au début de la procédure puis de le libérer à la fin.
Private Declare Function OpenClipboard& Lib "user32" _ (ByVal hwnd&) Private Declare Function CloseClipboard& Lib "user32" ()
Sub LaProcQuiEffaceLeClipboard() OpenClipboard 0& ' ' Le code initial ici ' CloseClipboard End Sub
Alain CROS
"Pounet95" a écrit dans le message de news:
Halte au feu ! Suite à la la réponse sur l'autre fil, j'ai voulu reprendre la procédure. Elle a un effet pervers, on ne peut plus faire de copier/coller ;o((((( A mettre à la poubelle donc. -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
Bonjour ( car je crois - 8 heures / Paris )
Toujours pas compris le pb du copier/coller, mais qu'importe.
Le principal est dans l'échange et que chacun y trouve sinon son bonheur
au moins un semblant de ce qu'il lui faut
Cordialement
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le
message de news: 540DD2A9-D735-4A7D-A771-370BCFC70233@microsoft.com...
Merci à tous ceux qui ont apporté une suggestion.
La méthode de Pierre CFI me semble la plus appropriée et la plus simple
bien
que dans le cas où le format d'une ligne ait déjà été modifié par la
rencontre de ces 2 conditions, elle ne peut faire l'opération contraire
(remodification d'un format de ligne quand la condition n'est plus
rencontrée
suite à un nouveau changement de valeur).
Salutations !
Bon(jour) soir
Après 16h et la niut tombant je ne sais plus que dire... bref.
Effectivement, j'ai préféré jeter l'éponge car je n'ai pas compris ce
qui pouvait provoquer cette inoprérance du copier/coller ( entre autre ?)
Alors comme on m'a toujours dit " dans le doute abstiens-toi" ,
j'ai fait au mieux derrière ;o)))
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
unaCTOq4EHA.3120@TK2MSFTNGP12.phx.gbl...
Bonjour.
Je n'ai pas testé cette procédure mais j'ai déjà constaté parfois un
effacement malencontreux du presse papier.
La solution consiste a bloquer le presse papier au début de la
procédure
puis de le libérer à la fin.
Private Declare Function OpenClipboard& Lib "user32" _
(ByVal hwnd&)
Private Declare Function CloseClipboard& Lib "user32" ()
Sub LaProcQuiEffaceLeClipboard()
OpenClipboard 0&
'
' Le code initial ici
'
CloseClipboard
End Sub
Alain CROS
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
eYkYHZh4EHA.2404@TK2MSFTNGP14.phx.gbl...
Halte au feu !
Suite à la la réponse sur l'autre fil, j'ai voulu reprendre la
procédure.
Elle a un effet pervers, on ne peut plus faire de copier/coller
;o(((((
A mettre à la poubelle donc.
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Bonjour ( car je crois - 8 heures / Paris ) Toujours pas compris le pb du copier/coller, mais qu'importe. Le principal est dans l'échange et que chacun y trouve sinon son bonheur au moins un semblant de ce qu'il lui faut Cordialement
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Stéphan DuQuébec" a écrit dans le message de news:
Merci à tous ceux qui ont apporté une suggestion.
La méthode de Pierre CFI me semble la plus appropriée et la plus simple bien que dans le cas où le format d'une ligne ait déjà été modifié par la rencontre de ces 2 conditions, elle ne peut faire l'opération contraire (remodification d'un format de ligne quand la condition n'est plus rencontrée suite à un nouveau changement de valeur).
Salutations !
Bon(jour) soir Après 16h et la niut tombant je ne sais plus que dire... bref. Effectivement, j'ai préféré jeter l'éponge car je n'ai pas compris ce qui pouvait provoquer cette inoprérance du copier/coller ( entre autre ?) Alors comme on m'a toujours dit " dans le doute abstiens-toi" , j'ai fait au mieux derrière ;o)))
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"Alain CROS" a écrit dans le message de news:
Bonjour.
Je n'ai pas testé cette procédure mais j'ai déjà constaté parfois un effacement malencontreux du presse papier.
La solution consiste a bloquer le presse papier au début de la procédure puis de le libérer à la fin.
Private Declare Function OpenClipboard& Lib "user32" _ (ByVal hwnd&) Private Declare Function CloseClipboard& Lib "user32" ()
Sub LaProcQuiEffaceLeClipboard() OpenClipboard 0& ' ' Le code initial ici ' CloseClipboard End Sub
Alain CROS
"Pounet95" a écrit dans le message de news:
Halte au feu ! Suite à la la réponse sur l'autre fil, j'ai voulu reprendre la procédure. Elle a un effet pervers, on ne peut plus faire de copier/coller ;o((((( A mettre à la poubelle donc. -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
