J'essaye de programmer une petite macro qui me permettrait de trouver
dans 2 plages de cellules s'il y en a 1 de vide et sinon d'executer un
autre code mais je n'arrive pas =E0 mettre en place cette solution.
Il doit regarder si dans la plage quinzaine1 il y a une cellule vide,
sinon il fait de meme dans la quinzaine2 sinon il effectue autre
chose.
Voici un bout de mon code:
On Error Resume Next
Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
If Err <> 0 Then
Range("G88:G94").Copy
Range("B74:B80").Select
ActiveSheet.Paste
Range("H88:I94").Copy
Range("C74:D80").Select
ActiveSheet.Paste
Selection.Offset(7, -1).Select
Selection.Value =3D ""
Selection.Offset(7, 0).Select
Selection.Value =3D ""
Selection.Offset(-14, 5).Select
Selection.Value =3D ""
Selection.Offset(7, 0).Select
Selection.Value =3D ""
Selection.Offset(7, 0).Select
Selection.Value =3D ""
Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir,
Essaie comme cela '------------ Sub jj() If [COUNTBLANK(quinzaine1)] Then Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit Sub If [COUNTBLANK(quinzaine2)] Then Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit Sub Range("G88:G94").Copy Range("B74:B80") Range("H88:I94").Copy Range("C74:D80") Selection.Offset(7, -1) = "" Selection.Offset(7, 0) = "" Selection.Offset(-14, 5) = "" Selection.Offset(7, 0) = "" End Sub '-------------------
-- Salutations JJ
a écrit dans le message de news:
Bonjour,
J'essaye de programmer une petite macro qui me permettrait de trouver dans 2 plages de cellules s'il y en a 1 de vide et sinon d'executer un autre code mais je n'arrive pas à mettre en place cette solution. Il doit regarder si dans la plage quinzaine1 il y a une cellule vide, sinon il fait de meme dans la quinzaine2 sinon il effectue autre chose.
Voici un bout de mon code:
On Error Resume Next Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select If Err <> 0 Then Range("G88:G94").Copy Range("B74:B80").Select ActiveSheet.Paste Range("H88:I94").Copy Range("C74:D80").Select ActiveSheet.Paste Selection.Offset(7, -1).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Selection.Offset(-14, 5).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select End If
Merci à ceux qui m'aideraient.
Bonsoir,
Essaie comme cela
'------------
Sub jj()
If [COUNTBLANK(quinzaine1)] Then
Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit
Sub
If [COUNTBLANK(quinzaine2)] Then
Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit
Sub
Range("G88:G94").Copy Range("B74:B80")
Range("H88:I94").Copy Range("C74:D80")
Selection.Offset(7, -1) = ""
Selection.Offset(7, 0) = ""
Selection.Offset(-14, 5) = ""
Selection.Offset(7, 0) = ""
End Sub
'-------------------
--
Salutations
JJ
<Xavier.Gineste@gmail.com> a écrit dans le message de news:
f03e14fc-39a3-4bfd-abf8-38298957ee9c@x69g2000hsx.googlegroups.com...
Bonjour,
J'essaye de programmer une petite macro qui me permettrait de trouver
dans 2 plages de cellules s'il y en a 1 de vide et sinon d'executer un
autre code mais je n'arrive pas à mettre en place cette solution.
Il doit regarder si dans la plage quinzaine1 il y a une cellule vide,
sinon il fait de meme dans la quinzaine2 sinon il effectue autre
chose.
Voici un bout de mon code:
On Error Resume Next
Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
If Err <> 0 Then
Range("G88:G94").Copy
Range("B74:B80").Select
ActiveSheet.Paste
Range("H88:I94").Copy
Range("C74:D80").Select
ActiveSheet.Paste
Selection.Offset(7, -1).Select
Selection.Value = ""
Selection.Offset(7, 0).Select
Selection.Value = ""
Selection.Offset(-14, 5).Select
Selection.Value = ""
Selection.Offset(7, 0).Select
Selection.Value = ""
Selection.Offset(7, 0).Select
Selection.Value = ""
Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
End If
Essaie comme cela '------------ Sub jj() If [COUNTBLANK(quinzaine1)] Then Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit Sub If [COUNTBLANK(quinzaine2)] Then Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit Sub Range("G88:G94").Copy Range("B74:B80") Range("H88:I94").Copy Range("C74:D80") Selection.Offset(7, -1) = "" Selection.Offset(7, 0) = "" Selection.Offset(-14, 5) = "" Selection.Offset(7, 0) = "" End Sub '-------------------
-- Salutations JJ
a écrit dans le message de news:
Bonjour,
J'essaye de programmer une petite macro qui me permettrait de trouver dans 2 plages de cellules s'il y en a 1 de vide et sinon d'executer un autre code mais je n'arrive pas à mettre en place cette solution. Il doit regarder si dans la plage quinzaine1 il y a une cellule vide, sinon il fait de meme dans la quinzaine2 sinon il effectue autre chose.
Voici un bout de mon code:
On Error Resume Next Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select If Err <> 0 Then Range("G88:G94").Copy Range("B74:B80").Select ActiveSheet.Paste Range("H88:I94").Copy Range("C74:D80").Select ActiveSheet.Paste Selection.Offset(7, -1).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Selection.Offset(-14, 5).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select End If
Merci à ceux qui m'aideraient.
Jacky
Re... Attention aux coupures de lignes, les IF...Then sont sur une seule ligne. De If...jusqu'à ...Exit sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir,
Essaie comme cela '------------ Sub jj() If [COUNTBLANK(quinzaine1)] Then Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit Sub If [COUNTBLANK(quinzaine2)] Then Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit Sub Range("G88:G94").Copy Range("B74:B80") Range("H88:I94").Copy Range("C74:D80") Selection.Offset(7, -1) = "" Selection.Offset(7, 0) = "" Selection.Offset(-14, 5) = "" Selection.Offset(7, 0) = "" End Sub '-------------------
-- Salutations JJ
a écrit dans le message de news:
Bonjour,
J'essaye de programmer une petite macro qui me permettrait de trouver dans 2 plages de cellules s'il y en a 1 de vide et sinon d'executer un autre code mais je n'arrive pas à mettre en place cette solution. Il doit regarder si dans la plage quinzaine1 il y a une cellule vide, sinon il fait de meme dans la quinzaine2 sinon il effectue autre chose.
Voici un bout de mon code:
On Error Resume Next Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select If Err <> 0 Then Range("G88:G94").Copy Range("B74:B80").Select ActiveSheet.Paste Range("H88:I94").Copy Range("C74:D80").Select ActiveSheet.Paste Selection.Offset(7, -1).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Selection.Offset(-14, 5).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select End If
Merci à ceux qui m'aideraient.
Re...
Attention aux coupures de lignes, les IF...Then sont sur une seule ligne.
De If...jusqu'à ...Exit sub
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e5mnrTEMIHA.1168@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Essaie comme cela
'------------
Sub jj()
If [COUNTBLANK(quinzaine1)] Then
Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select:
Exit Sub
If [COUNTBLANK(quinzaine2)] Then
Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select:
Exit Sub
Range("G88:G94").Copy Range("B74:B80")
Range("H88:I94").Copy Range("C74:D80")
Selection.Offset(7, -1) = ""
Selection.Offset(7, 0) = ""
Selection.Offset(-14, 5) = ""
Selection.Offset(7, 0) = ""
End Sub
'-------------------
--
Salutations
JJ
<Xavier.Gineste@gmail.com> a écrit dans le message de news:
f03e14fc-39a3-4bfd-abf8-38298957ee9c@x69g2000hsx.googlegroups.com...
Bonjour,
J'essaye de programmer une petite macro qui me permettrait de trouver
dans 2 plages de cellules s'il y en a 1 de vide et sinon d'executer un
autre code mais je n'arrive pas à mettre en place cette solution.
Il doit regarder si dans la plage quinzaine1 il y a une cellule vide,
sinon il fait de meme dans la quinzaine2 sinon il effectue autre
chose.
Voici un bout de mon code:
On Error Resume Next
Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
If Err <> 0 Then
Range("G88:G94").Copy
Range("B74:B80").Select
ActiveSheet.Paste
Range("H88:I94").Copy
Range("C74:D80").Select
ActiveSheet.Paste
Selection.Offset(7, -1).Select
Selection.Value = ""
Selection.Offset(7, 0).Select
Selection.Value = ""
Selection.Offset(-14, 5).Select
Selection.Value = ""
Selection.Offset(7, 0).Select
Selection.Value = ""
Selection.Offset(7, 0).Select
Selection.Value = ""
Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1,
1).Select
End If
Re... Attention aux coupures de lignes, les IF...Then sont sur une seule ligne. De If...jusqu'à ...Exit sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir,
Essaie comme cela '------------ Sub jj() If [COUNTBLANK(quinzaine1)] Then Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit Sub If [COUNTBLANK(quinzaine2)] Then Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select: Exit Sub Range("G88:G94").Copy Range("B74:B80") Range("H88:I94").Copy Range("C74:D80") Selection.Offset(7, -1) = "" Selection.Offset(7, 0) = "" Selection.Offset(-14, 5) = "" Selection.Offset(7, 0) = "" End Sub '-------------------
-- Salutations JJ
a écrit dans le message de news:
Bonjour,
J'essaye de programmer une petite macro qui me permettrait de trouver dans 2 plages de cellules s'il y en a 1 de vide et sinon d'executer un autre code mais je n'arrive pas à mettre en place cette solution. Il doit regarder si dans la plage quinzaine1 il y a une cellule vide, sinon il fait de meme dans la quinzaine2 sinon il effectue autre chose.
Voici un bout de mon code:
On Error Resume Next Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select Range("quinzaine2").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select If Err <> 0 Then Range("G88:G94").Copy Range("B74:B80").Select ActiveSheet.Paste Range("H88:I94").Copy Range("C74:D80").Select ActiveSheet.Paste Selection.Offset(7, -1).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Selection.Offset(-14, 5).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Selection.Offset(7, 0).Select Selection.Value = "" Range("quinzaine1").SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select End If