Bonjour à tous et merci de votre aide,
Je vous expose mon problème:
Je travail sur un fichier regroupant des informations classées par mois sur différents onglets. Dans un dernier onglet, nommé DB, je souhaite que l'ensemble des informations présentes dans les autres onglets soient restituées. Pour cela, je m'aide de la formule Skipblanks pour pouvoir selectionner des plages de données larges, pour que je n'ai pas à les redéfinir à chaque fois que j'ajoute des informations dans un onglet "mois". Problème, la macro skipblanks me joue des tours entre le mois de novembre et le mois de décembre. Voici ma macro:
Sub Base_données()
'
' Base_données Macro
' Macro enregistrée le 10/10/2008 par JFM
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Sheets("Jan").Select
Range("B12:S59").Select
Selection.Copy
Sheets("DB").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Fév").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=27
Range("A56").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=51
Sheets("Mar").Select
Range("B13:S60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A103").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range("A151").Select
Sheets("Avr").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Mai").Select
Range("B13:S60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=51
Range("A198").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Sheets("Jun").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A246").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Jul").Select
Range("B13:S58").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A293").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=45
Sheets("Aou").Select
Range("B13:S58").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A339").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sep").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=45
Range("A385").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=30
Sheets("Oct").Select
Range("B13:S58").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=18
Range("A432").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=51
Sheets("Nov").Select
Range("B13:S58").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A478").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Nov").Select
Selection.Copy
Sheets("DB").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Déc").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=48
Range("A524").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = False
Dim l As Integer
For l = Cells(65256, 8).End(xlUp).Row To 8 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub
Merci d'avance pour votre aide.
Je vous expose mon problème:
Je travail sur un fichier regroupant des informations classées par mois sur différents onglets. Dans un dernier onglet, nommé DB, je souhaite que l'ensemble des informations présentes dans les autres onglets soient restituées. Pour cela, je m'aide de la formule Skipblanks pour pouvoir selectionner des plages de données larges, pour que je n'ai pas à les redéfinir à chaque fois que j'ajoute des informations dans un onglet "mois". Problème, la macro skipblanks me joue des tours entre le mois de novembre et le mois de décembre. Voici ma macro:
Sub Base_données()
'
' Base_données Macro
' Macro enregistrée le 10/10/2008 par JFM
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
Sheets("Jan").Select
Range("B12:S59").Select
Selection.Copy
Sheets("DB").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Fév").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=27
Range("A56").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=51
Sheets("Mar").Select
Range("B13:S60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A103").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=48
Range("A151").Select
Sheets("Avr").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Mai").Select
Range("B13:S60").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=51
Range("A198").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Sheets("Jun").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A246").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Jul").Select
Range("B13:S58").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A293").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=45
Sheets("Aou").Select
Range("B13:S58").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A339").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sep").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=45
Range("A385").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=30
Sheets("Oct").Select
Range("B13:S58").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=18
Range("A432").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=51
Sheets("Nov").Select
Range("B13:S58").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
Range("A478").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Nov").Select
Selection.Copy
Sheets("DB").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Déc").Select
Range("B13:S59").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DB").Select
ActiveWindow.SmallScroll Down:=48
Range("A524").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = False
Dim l As Integer
For l = Cells(65256, 8).End(xlUp).Row To 8 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub
Merci d'avance pour votre aide.