à la fin d'une ligne de code débutant par If il doit y avoir un Then comme Garnote doit avoir sa petite bière à la fin de la journée ! ;-) If Range("D12")<>"" and Range("D16")<>"" THEN
"Eric Dufour" a écrit dans le message de groupe de discussion : #2$ Non, il y a un message d'erreur de Go To
"garnote" a écrit dans le message de news:
Essaie ceci :
If Range("D12")<>"" and Range("D16")<>""
Serge
"Eric Dufour" a écrit dans le message de news:
débloqué, mais, comment je fais pour avoir la condition suivante: Il faut que les deux cellules soit rempli (D12 et D16)?
Merci
Éric De Montréal
(Youki, ta formule ne fonctionne pas)
Sub creation()
Sheets("Creer").Select 'If (Cells(D, 12) _) "" And Cells(D, 16) = "") Then If Cells(4, 12) <> "0" And Cells(4, 16) <> "0" Then
MsgBox "Vous devez saisir le nom de votre établissement et le nom de l'installation" Else
'_____________________Macro pour masquer si complémentaire dans P6 'Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("40:41").EntireRow.Hidden = True '___________________ Range("L48:L49").Select Selection.Interior.ColorIndex = 34 Range("M48:M49").Select Selection.Interior.ColorIndex = 2 Range("M48:M49").Select Selection.Locked = False Selection.FormulaHidden = False Else Rows("40:41").EntireRow.Hidden = False '_______________________Macro pour Superficie visée et Superficie Range("L51:L52").Select Selection.Interior.ColorIndex = 34 Range("M51:M52").Select Selection.Interior.ColorIndex = 2 Selection.Locked = False Selection.FormulaHidden = False '_______________________coloré Range("M78").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With Selection.Locked = True Selection.FormulaHidden = False Range("A1").Select End If '_______________________Macro pour zoomer à la largeur Range("A2:O10").Select Range("O10").Activate ActiveWindow.Zoom = True Range("A1").Select ActiveSheet.ScrollArea = "A1:O100" Sheets("Formulaire").Visible = xlVeryHidden ActiveSheet.Protect Password:="Regie" '______________ l'active Range("A1").Select Application.ScreenUpdating = False
End If End Sub
Mais il l'avait déjà son Then ;-)
Santé !
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: 830A1D00-C221-4CE1-A199-682677F1C5CB@microsoft.com...
| Non, il y a un message d'erreur de Go To
à la fin d'une ligne de code débutant par If il doit y avoir un Then
comme Garnote doit avoir sa petite bière à la fin de la journée !
;-)
If Range("D12")<>"" and Range("D16")<>"" THEN
"Eric Dufour" <hahaha@videotron.ca> a écrit dans le message de groupe de discussion :
#2$aFZ9iJHA.4868@TK2MSFTNGP05.phx.gbl...
Non, il y a un message d'erreur de Go To
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de
news:OoNqrS9iJHA.1172@TK2MSFTNGP05.phx.gbl...
Essaie ceci :
If Range("D12")<>"" and Range("D16")<>""
Serge
"Eric Dufour" <hahaha@videotron.ca> a écrit dans le message de news:
OtD67N9iJHA.1172@TK2MSFTNGP05.phx.gbl...
débloqué, mais, comment je fais pour avoir la condition suivante:
Il faut que les deux cellules soit rempli (D12 et D16)?
Merci
Éric De Montréal
(Youki, ta formule ne fonctionne pas)
Sub creation()
Sheets("Creer").Select
'If (Cells(D, 12) _) "" And Cells(D, 16) = "") Then
If Cells(4, 12) <> "0" And Cells(4, 16) <> "0" Then
MsgBox "Vous devez saisir le nom de votre établissement et le nom de
l'installation"
Else
à la fin d'une ligne de code débutant par If il doit y avoir un Then comme Garnote doit avoir sa petite bière à la fin de la journée ! ;-) If Range("D12")<>"" and Range("D16")<>"" THEN
"Eric Dufour" a écrit dans le message de groupe de discussion : #2$ Non, il y a un message d'erreur de Go To
"garnote" a écrit dans le message de news:
Essaie ceci :
If Range("D12")<>"" and Range("D16")<>""
Serge
"Eric Dufour" a écrit dans le message de news:
débloqué, mais, comment je fais pour avoir la condition suivante: Il faut que les deux cellules soit rempli (D12 et D16)?
Merci
Éric De Montréal
(Youki, ta formule ne fonctionne pas)
Sub creation()
Sheets("Creer").Select 'If (Cells(D, 12) _) "" And Cells(D, 16) = "") Then If Cells(4, 12) <> "0" And Cells(4, 16) <> "0" Then
MsgBox "Vous devez saisir le nom de votre établissement et le nom de l'installation" Else
'_____________________Macro pour masquer si complémentaire dans P6 'Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("40:41").EntireRow.Hidden = True '___________________ Range("L48:L49").Select Selection.Interior.ColorIndex = 34 Range("M48:M49").Select Selection.Interior.ColorIndex = 2 Range("M48:M49").Select Selection.Locked = False Selection.FormulaHidden = False Else Rows("40:41").EntireRow.Hidden = False '_______________________Macro pour Superficie visée et Superficie Range("L51:L52").Select Selection.Interior.ColorIndex = 34 Range("M51:M52").Select Selection.Interior.ColorIndex = 2 Selection.Locked = False Selection.FormulaHidden = False '_______________________coloré Range("M78").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With Selection.Locked = True Selection.FormulaHidden = False Range("A1").Select End If '_______________________Macro pour zoomer à la largeur Range("A2:O10").Select Range("O10").Activate ActiveWindow.Zoom = True Range("A1").Select ActiveSheet.ScrollArea = "A1:O100" Sheets("Formulaire").Visible = xlVeryHidden ActiveSheet.Protect Password:="Regie" '______________ l'active Range("A1").Select Application.ScreenUpdating = False
End If End Sub
Eric Dufour
Exact. Ma condition était à l'envers, étant donné qu je manque d'expérience.
If Range("D12") = "" Or Range("D16") = "" Then
Un gros merci.
Érico de Montréal
"garnote" a écrit dans le message de news:%
Mais il l'avait déjà son Then ;-)
Santé !
"michdenis" a écrit dans le message de news:
| Non, il y a un message d'erreur de Go To
à la fin d'une ligne de code débutant par If il doit y avoir un Then comme Garnote doit avoir sa petite bière à la fin de la journée ! ;-) If Range("D12")<>"" and Range("D16")<>"" THEN
"Eric Dufour" a écrit dans le message de groupe de discussion : #2$ Non, il y a un message d'erreur de Go To
"garnote" a écrit dans le message de news:
Essaie ceci :
If Range("D12")<>"" and Range("D16")<>""
Serge
"Eric Dufour" a écrit dans le message de news:
débloqué, mais, comment je fais pour avoir la condition suivante: Il faut que les deux cellules soit rempli (D12 et D16)?
Merci
Éric De Montréal
(Youki, ta formule ne fonctionne pas)
Sub creation()
Sheets("Creer").Select 'If (Cells(D, 12) _) "" And Cells(D, 16) = "") Then If Cells(4, 12) <> "0" And Cells(4, 16) <> "0" Then
MsgBox "Vous devez saisir le nom de votre établissement et le nom de l'installation" Else
'_____________________Macro pour masquer si complémentaire dans P6 'Worksheets(Worksheets.Count).Select If [P6].Value = 2 Then Rows("40:41").EntireRow.Hidden = True '___________________ Range("L48:L49").Select Selection.Interior.ColorIndex = 34 Range("M48:M49").Select Selection.Interior.ColorIndex = 2 Range("M48:M49").Select Selection.Locked = False Selection.FormulaHidden = False Else Rows("40:41").EntireRow.Hidden = False '_______________________Macro pour Superficie visée et Superficie Range("L51:L52").Select Selection.Interior.ColorIndex = 34 Range("M51:M52").Select Selection.Interior.ColorIndex = 2 Selection.Locked = False Selection.FormulaHidden = False '_______________________coloré Range("M78").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 35 End With With Selection.Interior .ColorIndex = 35 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With Selection.Locked = True Selection.FormulaHidden = False Range("A1").Select End If '_______________________Macro pour zoomer à la largeur Range("A2:O10").Select Range("O10").Activate ActiveWindow.Zoom = True Range("A1").Select ActiveSheet.ScrollArea = "A1:O100" Sheets("Formulaire").Visible = xlVeryHidden ActiveSheet.Protect Password:="Regie" '______________ l'active Range("A1").Select Application.ScreenUpdating = False
End If End Sub
Exact.
Ma condition était à l'envers, étant donné qu je manque d'expérience.
If Range("D12") = "" Or Range("D16") = "" Then
Un gros merci.
Érico de Montréal
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de
news:%23kvAd09iJHA.4912@TK2MSFTNGP04.phx.gbl...
Mais il l'avait déjà son Then ;-)
Santé !
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
830A1D00-C221-4CE1-A199-682677F1C5CB@microsoft.com...
| Non, il y a un message d'erreur de Go To
à la fin d'une ligne de code débutant par If il doit y avoir un Then
comme Garnote doit avoir sa petite bière à la fin de la journée !
;-)
If Range("D12")<>"" and Range("D16")<>"" THEN
"Eric Dufour" <hahaha@videotron.ca> a écrit dans le message de groupe de
discussion :
#2$aFZ9iJHA.4868@TK2MSFTNGP05.phx.gbl...
Non, il y a un message d'erreur de Go To
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de
news:OoNqrS9iJHA.1172@TK2MSFTNGP05.phx.gbl...
Essaie ceci :
If Range("D12")<>"" and Range("D16")<>""
Serge
"Eric Dufour" <hahaha@videotron.ca> a écrit dans le message de news:
OtD67N9iJHA.1172@TK2MSFTNGP05.phx.gbl...
débloqué, mais, comment je fais pour avoir la condition suivante:
Il faut que les deux cellules soit rempli (D12 et D16)?
Merci
Éric De Montréal
(Youki, ta formule ne fonctionne pas)
Sub creation()
Sheets("Creer").Select
'If (Cells(D, 12) _) "" And Cells(D, 16) = "") Then
If Cells(4, 12) <> "0" And Cells(4, 16) <> "0" Then
MsgBox "Vous devez saisir le nom de votre établissement et le nom de
l'installation"
Else
Exact. Ma condition était à l'envers, étant donné qu je manque d'expérience.
If Range("D12") = "" Or Range("D16") = "" Then
Un gros merci.
Érico de Montréal
"garnote" a écrit dans le message de news:%
Mais il l'avait déjà son Then ;-)
Santé !
"michdenis" a écrit dans le message de news:
| Non, il y a un message d'erreur de Go To
à la fin d'une ligne de code débutant par If il doit y avoir un Then comme Garnote doit avoir sa petite bière à la fin de la journée ! ;-) If Range("D12")<>"" and Range("D16")<>"" THEN
"Eric Dufour" a écrit dans le message de groupe de discussion : #2$ Non, il y a un message d'erreur de Go To
"garnote" a écrit dans le message de news:
Essaie ceci :
If Range("D12")<>"" and Range("D16")<>""
Serge
"Eric Dufour" a écrit dans le message de news:
débloqué, mais, comment je fais pour avoir la condition suivante: Il faut que les deux cellules soit rempli (D12 et D16)?
Merci
Éric De Montréal
(Youki, ta formule ne fonctionne pas)
Sub creation()
Sheets("Creer").Select 'If (Cells(D, 12) _) "" And Cells(D, 16) = "") Then If Cells(4, 12) <> "0" And Cells(4, 16) <> "0" Then
MsgBox "Vous devez saisir le nom de votre établissement et le nom de l'installation" Else