Bonsoir et désolé cela ne fonctionne pas en fait : Si la cellule contient "Salaires" alors Michel
"Philippe.R" a écrit dans le message de news:
Bonsoir Michel, Faute de précisions sur ce que doit faire ce code, tu peux tester ceci :
conTenu = ActiveCell.Offset(0, 34).Value If contenu <> "*" & "Salaires" & "*" Then msgbox contenu,,"M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir je ne comprends pas pourquoi cela ne fonctionne pas Merci Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then Rows("25:29").Select Selection.EntireRow.Hidden = True End If
RaMa
tu avais dit nanana <> "*" & "Salaires" & "*" Then et maintenant Si la cellule contient "Salaires" alors donc If ucase(ActiveCell.Offset(0, 34).Value) like ucase("*" & "Salaires" & "*") Then
Salutations RaMa "RaMa" a écrit dans le message de news:
bonsoir essaie ceci (les ucase sont facultatifs (et non oukase;))
If not ucase(ActiveCell.Offset(0, 34).Value) like ucase("*" & "Salaires" & "*") Then
Salutations RaMa
"Michel" a écrit dans le message de news:
Bonsoir je ne comprends pas pourquoi cela ne fonctionne pas Merci Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then Rows("25:29").Select Selection.EntireRow.Hidden = True End If
tu avais dit
nanana <> "*" & "Salaires" & "*" Then
et maintenant
Si la cellule contient "Salaires" alors
donc
If ucase(ActiveCell.Offset(0, 34).Value) like ucase("*" & "Salaires" &
"*") Then
Salutations
RaMa
"RaMa" <rmarceauPas2Spam@free.fr> a écrit dans le message de news:
u9BrRlNUFHA.1152@tk2msftngp13.phx.gbl...
bonsoir
essaie ceci (les ucase sont facultatifs (et non oukase;))
If not ucase(ActiveCell.Offset(0, 34).Value) like ucase("*" & "Salaires"
& "*") Then
Salutations
RaMa
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
OFuLlcNUFHA.228@TK2MSFTNGP12.phx.gbl...
Bonsoir
je ne comprends pas pourquoi cela ne fonctionne pas
Merci
Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then
Rows("25:29").Select
Selection.EntireRow.Hidden = True
End If
tu avais dit nanana <> "*" & "Salaires" & "*" Then et maintenant Si la cellule contient "Salaires" alors donc If ucase(ActiveCell.Offset(0, 34).Value) like ucase("*" & "Salaires" & "*") Then
Salutations RaMa "RaMa" a écrit dans le message de news:
bonsoir essaie ceci (les ucase sont facultatifs (et non oukase;))
If not ucase(ActiveCell.Offset(0, 34).Value) like ucase("*" & "Salaires" & "*") Then
Salutations RaMa
"Michel" a écrit dans le message de news:
Bonsoir je ne comprends pas pourquoi cela ne fonctionne pas Merci Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then Rows("25:29").Select Selection.EntireRow.Hidden = True End If
Philippe.R
Re, Mais comme dit Rama, dont je me suis inspiré tout en persistant, faudrait savoir ;o)))) :
Sub VireSi() contenu = ActiveCell.Offset(0,3 4).Value If Not UCase(contenu) Like UCase("*" & "Salaires" & "*") Then MsgBox contenu, , "M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir et désolé cela ne fonctionne pas en fait : Si la cellule contient "Salaires" alors Michel
"Philippe.R" a écrit dans le message de news:
Bonsoir Michel, Faute de précisions sur ce que doit faire ce code, tu peux tester ceci :
conTenu = ActiveCell.Offset(0, 34).Value If contenu <> "*" & "Salaires" & "*" Then msgbox contenu,,"M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir je ne comprends pas pourquoi cela ne fonctionne pas Merci Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then Rows("25:29").Select Selection.EntireRow.Hidden = True End If
Re,
Mais comme dit Rama, dont je me suis inspiré tout en persistant, faudrait savoir ;o)))) :
Sub VireSi()
contenu = ActiveCell.Offset(0,3 4).Value
If Not UCase(contenu) Like UCase("*" & "Salaires" & "*") Then
MsgBox contenu, , "M.P.F.E."
Rows("25:29").Select
Selection.EntireRow.Hidden = True
End If
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
uaboeFOUFHA.2444@TK2MSFTNGP10.phx.gbl...
Bonsoir et désolé cela ne fonctionne pas
en fait :
Si la cellule contient "Salaires" alors
Michel
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
eTRUvlNUFHA.2540@tk2msftngp13.phx.gbl...
Bonsoir Michel,
Faute de précisions sur ce que doit faire ce code, tu peux tester ceci :
conTenu = ActiveCell.Offset(0, 34).Value
If contenu <> "*" & "Salaires" & "*" Then
msgbox contenu,,"M.P.F.E."
Rows("25:29").Select
Selection.EntireRow.Hidden = True
End If
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
OFuLlcNUFHA.228@TK2MSFTNGP12.phx.gbl...
Bonsoir
je ne comprends pas pourquoi cela ne fonctionne pas
Merci
Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then
Rows("25:29").Select
Selection.EntireRow.Hidden = True
End If
Re, Mais comme dit Rama, dont je me suis inspiré tout en persistant, faudrait savoir ;o)))) :
Sub VireSi() contenu = ActiveCell.Offset(0,3 4).Value If Not UCase(contenu) Like UCase("*" & "Salaires" & "*") Then MsgBox contenu, , "M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir et désolé cela ne fonctionne pas en fait : Si la cellule contient "Salaires" alors Michel
"Philippe.R" a écrit dans le message de news:
Bonsoir Michel, Faute de précisions sur ce que doit faire ce code, tu peux tester ceci :
conTenu = ActiveCell.Offset(0, 34).Value If contenu <> "*" & "Salaires" & "*" Then msgbox contenu,,"M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir je ne comprends pas pourquoi cela ne fonctionne pas Merci Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then Rows("25:29").Select Selection.EntireRow.Hidden = True End If
Michel
Bonsoir C'est parfait, je vous remercie beaucoup Michel
"Philippe.R" a écrit dans le message de news:
Re, Mais comme dit Rama, dont je me suis inspiré tout en persistant, faudrait savoir ;o)))) :
Sub VireSi() contenu = ActiveCell.Offset(0,3 4).Value If Not UCase(contenu) Like UCase("*" & "Salaires" & "*") Then MsgBox contenu, , "M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir et désolé cela ne fonctionne pas en fait : Si la cellule contient "Salaires" alors Michel
"Philippe.R" a écrit dans le message de news:
Bonsoir Michel, Faute de précisions sur ce que doit faire ce code, tu peux tester ceci :
conTenu = ActiveCell.Offset(0, 34).Value If contenu <> "*" & "Salaires" & "*" Then msgbox contenu,,"M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir je ne comprends pas pourquoi cela ne fonctionne pas Merci Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then Rows("25:29").Select Selection.EntireRow.Hidden = True End If
Bonsoir C'est parfait, je vous remercie beaucoup
Michel
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
OoMWuSOUFHA.4056@TK2MSFTNGP15.phx.gbl...
Re,
Mais comme dit Rama, dont je me suis inspiré tout en persistant, faudrait
savoir ;o)))) :
Sub VireSi()
contenu = ActiveCell.Offset(0,3 4).Value
If Not UCase(contenu) Like UCase("*" & "Salaires" & "*") Then
MsgBox contenu, , "M.P.F.E."
Rows("25:29").Select
Selection.EntireRow.Hidden = True
End If
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
uaboeFOUFHA.2444@TK2MSFTNGP10.phx.gbl...
Bonsoir et désolé cela ne fonctionne pas
en fait :
Si la cellule contient "Salaires" alors
Michel
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
eTRUvlNUFHA.2540@tk2msftngp13.phx.gbl...
Bonsoir Michel,
Faute de précisions sur ce que doit faire ce code, tu peux tester ceci :
conTenu = ActiveCell.Offset(0, 34).Value
If contenu <> "*" & "Salaires" & "*" Then
msgbox contenu,,"M.P.F.E."
Rows("25:29").Select
Selection.EntireRow.Hidden = True
End If
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
OFuLlcNUFHA.228@TK2MSFTNGP12.phx.gbl...
Bonsoir
je ne comprends pas pourquoi cela ne fonctionne pas
Merci
Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then
Rows("25:29").Select
Selection.EntireRow.Hidden = True
End If
Bonsoir C'est parfait, je vous remercie beaucoup Michel
"Philippe.R" a écrit dans le message de news:
Re, Mais comme dit Rama, dont je me suis inspiré tout en persistant, faudrait savoir ;o)))) :
Sub VireSi() contenu = ActiveCell.Offset(0,3 4).Value If Not UCase(contenu) Like UCase("*" & "Salaires" & "*") Then MsgBox contenu, , "M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir et désolé cela ne fonctionne pas en fait : Si la cellule contient "Salaires" alors Michel
"Philippe.R" a écrit dans le message de news:
Bonsoir Michel, Faute de précisions sur ce que doit faire ce code, tu peux tester ceci :
conTenu = ActiveCell.Offset(0, 34).Value If contenu <> "*" & "Salaires" & "*" Then msgbox contenu,,"M.P.F.E." Rows("25:29").Select Selection.EntireRow.Hidden = True End If
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Michel" a écrit dans le message de news:
Bonsoir je ne comprends pas pourquoi cela ne fonctionne pas Merci Michel
If ActiveCell.Offset(0, 34).Value <> "*" & "Salaires" & "*" Then Rows("25:29").Select Selection.EntireRow.Hidden = True End If
