Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ventilation

Ventilation

15 réponses
Avatar
Philippe
Bonjoura tous,

Novice en Visual Basic, je souhaiterai votre aide
J' ai un classeur comportant plusieurs feuilles dont la principale "Saisie
des écritures" est ventilé sur plusieurs feuilles de "ADH001" à "ADH150"
J'ai adapté le programme VB suivant


Private Sub CommandButton1_Click()

Dim c As Range, Plage As Range

Dim LigneA As Long, LigneB As Long, LigneC As Long

LigneADH001 = Sheets("ADH001").Range("A65536").End(xlUp).Row

LigneADH002 = Sheets("ADH002").Range("A65536").End(xlUp).Row

Set Plage = Range("A2", Range("A65536").End(xlUp))

For Each c In Plage

If c.Offset(, 7) = "" Then

Select Case c.Offset(, 1)

Case "ADH001"

Sheets("ADH001").Select

ActiveSheet.Unprotect

LigneADH001 = LigneADH001 + 1

Sheets("ADH001").Range("A" & LigneADH001) = c.Value

Sheets("ADH001").Range("B" & LigneADH001) = c.Offset(,
1).Value

Sheets("ADH001").Range("C" & LigneADH001) = c.Offset(,
2).Value

Sheets("ADH001").Range("D" & LigneADH001) = c.Offset(,
3).Value

Sheets("ADH001").Range("E" & LigneADH001) = c.Offset(,
4).Value

Sheets("ADH001").Range("F" & LigneADH001) = c.Offset(,
5).Value

Sheets("ADH001").Range("G" & LigneADH001) = c.Offset(,
6).Value

Sheets("ADH001").Select

ActiveSheet.Protect

Case "ADH002"

Sheets("ADH002").Unprotect

LigneADH002 = LigneADH002 + 1

Sheets("ADH002").Range("A" & LigneADH002) = c.Value

Sheets("ADH002").Range("B" & LigneADH002) = c.Offset(,
1).Value

Sheets("ADH002").Range("C" & LigneADH002) = c.Offset(,
2).Value

Sheets("ADH002").Range("D" & LigneADH002) = c.Offset(,
3).Value

Sheets("ADH002").Range("E" & LigneADH002) = c.Offset(,
4).Value

Sheets("ADH002").Range("F" & LigneADH002) = c.Offset(,
5).Value

Sheets("ADH002").Range("G" & LigneADH002) = c.Offset(,
6).Value

Sheets("ADH002").Protect

End Select

Sheets("Saisie des écritures").Unprotect

c.Offset(, 7) = "X"

End If

Next c

Sheets("Saisie des écritures").Select

ActiveSheet.Unprotect

Range("A2:H60000").Select

Selection.Sort key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2")
_

, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=
_

False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _

:=xlSortNormal

Range("A4").Select

ActiveSheet.Protect

Sheets("INTERFACE").Select

End Sub

Sub Accueil()

'

' Accueil Macro

' Macro enregistrée le 02/11/2006 par Philippe





Je peux ventiler les écritures jusqu'à la feuille "ADH065"

après je suis confronté a une erreur de compilation "procédure trop
longue"



Pouvez vous me venir en aide



Merci d'avance



Philippe
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
FxM
Bonjour,

Non testé :

Private Sub CommandButton1_Click()
Dim c As Range, Plage As Range, a as integer
Dim LigneA As Long, LigneB As Long, LigneC As Long
Dim ligneADH001 as long

LigneADH001 = Sheets("ADH001").Range("A65536").End(xlUp).Row+1

Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Offset(, 7) = "" Then
Sheets(c.Offset(, 1)).Select
with activesheet
.unprotect
for a = 0 to 7
.cells(LigneADH001,a+1) = c.Offset(0, a).Value
next a
.protect
end with

Sheets("Saisie des écritures").Unprotect
c.Offset(, 7) = "X"
End If
Next c

Sheets("Saisie des écritures").Select
ActiveSheet.Unprotect
Range("A2:H60000").Select
selection.Sort key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect
Sheets("INTERFACE").Select
end Sub

@+
FxM




Bonjoura tous,

Novice en Visual Basic, je souhaiterai votre aide
J' ai un classeur comportant plusieurs feuilles dont la principale "Saisie
des écritures" est ventilé sur plusieurs feuilles de "ADH001" à "ADH150"
J'ai adapté le programme VB suivant


Private Sub CommandButton1_Click()

Dim c As Range, Plage As Range

Dim LigneA As Long, LigneB As Long, LigneC As Long

LigneADH001 = Sheets("ADH001").Range("A65536").End(xlUp).Row

LigneADH002 = Sheets("ADH002").Range("A65536").End(xlUp).Row

Set Plage = Range("A2", Range("A65536").End(xlUp))

For Each c In Plage

If c.Offset(, 7) = "" Then

Select Case c.Offset(, 1)

Case "ADH001"

Sheets("ADH001").Select

ActiveSheet.Unprotect

LigneADH001 = LigneADH001 + 1

Sheets("ADH001").Range("A" & LigneADH001) = c.Value

Sheets("ADH001").Range("B" & LigneADH001) = c.Offset(,
1).Value

Sheets("ADH001").Range("C" & LigneADH001) = c.Offset(,
2).Value

Sheets("ADH001").Range("D" & LigneADH001) = c.Offset(,
3).Value

Sheets("ADH001").Range("E" & LigneADH001) = c.Offset(,
4).Value

Sheets("ADH001").Range("F" & LigneADH001) = c.Offset(,
5).Value

Sheets("ADH001").Range("G" & LigneADH001) = c.Offset(,
6).Value

Sheets("ADH001").Select

ActiveSheet.Protect

Case "ADH002"

Sheets("ADH002").Unprotect

LigneADH002 = LigneADH002 + 1

Sheets("ADH002").Range("A" & LigneADH002) = c.Value

Sheets("ADH002").Range("B" & LigneADH002) = c.Offset(,
1).Value

Sheets("ADH002").Range("C" & LigneADH002) = c.Offset(,
2).Value

Sheets("ADH002").Range("D" & LigneADH002) = c.Offset(,
3).Value

Sheets("ADH002").Range("E" & LigneADH002) = c.Offset(,
4).Value

Sheets("ADH002").Range("F" & LigneADH002) = c.Offset(,
5).Value

Sheets("ADH002").Range("G" & LigneADH002) = c.Offset(,
6).Value

Sheets("ADH002").Protect

End Select

Sheets("Saisie des écritures").Unprotect

c.Offset(, 7) = "X"

End If

Next c

Sheets("Saisie des écritures").Select

ActiveSheet.Unprotect

Range("A2:H60000").Select

Selection.Sort key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2")
_

, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=
_

False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _

:=xlSortNormal

Range("A4").Select

ActiveSheet.Protect

Sheets("INTERFACE").Select

End Sub

Sub Accueil()

'

' Accueil Macro

' Macro enregistrée le 02/11/2006 par Philippe





Je peux ventiler les écritures jusqu'à la feuille "ADH065"

après je suis confronté a une erreur de compilation "procédure trop
longue"



Pouvez vous me venir en aide



Merci d'avance



Philippe












Avatar
FxM
Voire même : (déplacement de la détection de dernière ligne)

Non testé :
Private Sub CommandButton1_Click()
Dim c As Range, Plage As Range, a as integer
Dim derlig as long

Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Offset(, 7) = "" Then
Sheets(c.Offset(, 1)).Select
with activesheet
.unprotect
derlig = .Range("A65536").End(xlUp).Row+1
for a = 0 to 7
.cells(derlig,a+1) = c.Offset(0, a).Value
next a
.protect
end with

Sheets("Saisie des écritures").Unprotect
c.Offset(, 7) = "X"
End If
Next c

Sheets("Saisie des écritures").Select
ActiveSheet.Unprotect
Range("A2:H60000").Select
selection.Sort key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect
Sheets("INTERFACE").Select
End Sub

@+
FxM
Avatar
Philippe
Re Bonjour
Dans les 2 programmes essayés j'ai l'ereur "Sheets(c.Offset(,
1)).Select"

"FxM" a écrit dans le message de news:
%
Voire même : (déplacement de la détection de dernière ligne)

Non testé :
Private Sub CommandButton1_Click()
Dim c As Range, Plage As Range, a as integer
Dim derlig as long

Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Offset(, 7) = "" Then
Sheets(c.Offset(, 1)).Select
with activesheet
.unprotect
derlig = .Range("A65536").End(xlUp).Row+1
for a = 0 to 7
.cells(derlig,a+1) = c.Offset(0, a).Value
next a
.protect
end with

Sheets("Saisie des écritures").Unprotect
c.Offset(, 7) = "X"
End If
Next c

Sheets("Saisie des écritures").Select
ActiveSheet.Unprotect
Range("A2:H60000").Select
selection.Sort key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect
Sheets("INTERFACE").Select
End Sub

@+
FxM


Avatar
FxM
Cette ligne est la généralisation de :
Select Case c.Offset(, 1)
Case "ADH001"
Sheets("ADH001").Select
équivalent à : si c.offset(,1)="ADH001" alors feuille("ADH001").select

Se pourrait-il que certains c.offset(0,1) ne correspondent pas à un nom
de feuille ? L'équivalent d'un "case else" en quelque sorte.

@+
FxM





Re Bonjour
Dans les 2 programmes essayés j'ai l'ereur "Sheets(c.Offset(,
1)).Select"

"FxM" a écrit dans le message de news:
%
Voire même : (déplacement de la détection de dernière ligne)

Non testé :
Private Sub CommandButton1_Click()
Dim c As Range, Plage As Range, a as integer
Dim derlig as long

Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Offset(, 7) = "" Then
Sheets(c.Offset(, 1)).Select
with activesheet
.unprotect
derlig = .Range("A65536").End(xlUp).Row+1
for a = 0 to 7
.cells(derlig,a+1) = c.Offset(0, a).Value
next a
.protect
end with

Sheets("Saisie des écritures").Unprotect
c.Offset(, 7) = "X"
End If
Next c

Sheets("Saisie des écritures").Select
ActiveSheet.Unprotect
Range("A2:H60000").Select
selection.Sort key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect
Sheets("INTERFACE").Select
End Sub

@+
FxM






Avatar
Philippe
Re-Bonjour
Je ne suis pas plus avancé pour autant
Merci de votre aide
Philippe

"FxM" a écrit dans le message de news:

Cette ligne est la généralisation de :
Select Case c.Offset(, 1)
Case "ADH001"
Sheets("ADH001").Select
équivalent à : si c.offset(,1)="ADH001" alors feuille("ADH001").select

Se pourrait-il que certains c.offset(0,1) ne correspondent pas à un nom de
feuille ? L'équivalent d'un "case else" en quelque sorte.

@+
FxM





Re Bonjour
Dans les 2 programmes essayés j'ai l'ereur "Sheets(c.Offset(,
1)).Select"

"FxM" a écrit dans le message de news:
%
Voire même : (déplacement de la détection de dernière ligne)

Non testé :
Private Sub CommandButton1_Click()
Dim c As Range, Plage As Range, a as integer
Dim derlig as long

Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Offset(, 7) = "" Then
Sheets(c.Offset(, 1)).Select
with activesheet
.unprotect
derlig = .Range("A65536").End(xlUp).Row+1
for a = 0 to 7
.cells(derlig,a+1) = c.Offset(0, a).Value
next a
.protect
end with

Sheets("Saisie des écritures").Unprotect
c.Offset(, 7) = "X"
End If
Next c

Sheets("Saisie des écritures").Select
ActiveSheet.Unprotect
Range("A2:H60000").Select
selection.Sort key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect
Sheets("INTERFACE").Select
End Sub

@+
FxM







Avatar
Philippe
La feuille "ADH001" existe dans ce classeur
Le message donné est : erreur d'exécution'13': incompatibilité de
type


Phil


"FxM" a écrit dans le message de news:

Cette ligne est la généralisation de :
Select Case c.Offset(, 1)
Case "ADH001"
Sheets("ADH001").Select
équivalent à : si c.offset(,1)="ADH001" alors feuille("ADH001").select

Se pourrait-il que certains c.offset(0,1) ne correspondent pas à un nom de
feuille ? L'équivalent d'un "case else" en quelque sorte.

@+
FxM





Re Bonjour
Dans les 2 programmes essayés j'ai l'ereur "Sheets(c.Offset(,
1)).Select"

"FxM" a écrit dans le message de news:
%
Voire même : (déplacement de la détection de dernière ligne)

Non testé :
Private Sub CommandButton1_Click()
Dim c As Range, Plage As Range, a as integer
Dim derlig as long

Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Offset(, 7) = "" Then
Sheets(c.Offset(, 1)).Select
with activesheet
.unprotect
derlig = .Range("A65536").End(xlUp).Row+1
for a = 0 to 7
.cells(derlig,a+1) = c.Offset(0, a).Value
next a
.protect
end with

Sheets("Saisie des écritures").Unprotect
c.Offset(, 7) = "X"
End If
Next c

Sheets("Saisie des écritures").Select
ActiveSheet.Unprotect
Range("A2:H60000").Select
selection.Sort key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect
Sheets("INTERFACE").Select
End Sub

@+
FxM







Avatar
MichDenis
Le problème majeure avec la présentation de ta macro, C'est que les plages
de cellules ne sont pas liées à une feuille particulière comme dans cet exemple
relevé de ton code :

Set Plage = Range("A2", Range("A65536").End(xlUp))

à quelle feuille appartient Range("a2......)

Si tu appelles ta macro et que la feuille active n'est pas la "bonne", ta macro
va se planter ... Il est aussi très difficile de réécrire cette macro sans avoir
les références des feuilles auxquelles appartient les plages de cellules ....


"Philippe" a écrit dans le message de news:
455312af$0$5364$
Bonjoura tous,

Novice en Visual Basic, je souhaiterai votre aide
J' ai un classeur comportant plusieurs feuilles dont la principale "Saisie
des écritures" est ventilé sur plusieurs feuilles de "ADH001" à "ADH150"
J'ai adapté le programme VB suivant


Private Sub CommandButton1_Click()

Dim c As Range, Plage As Range

Dim LigneA As Long, LigneB As Long, LigneC As Long

LigneADH001 = Sheets("ADH001").Range("A65536").End(xlUp).Row

LigneADH002 = Sheets("ADH002").Range("A65536").End(xlUp).Row

Set Plage = Range("A2", Range("A65536").End(xlUp))

For Each c In Plage

If c.Offset(, 7) = "" Then

Select Case c.Offset(, 1)

Case "ADH001"

Sheets("ADH001").Select

ActiveSheet.Unprotect

LigneADH001 = LigneADH001 + 1

Sheets("ADH001").Range("A" & LigneADH001) = c.Value

Sheets("ADH001").Range("B" & LigneADH001) = c.Offset(,
1).Value

Sheets("ADH001").Range("C" & LigneADH001) = c.Offset(,
2).Value

Sheets("ADH001").Range("D" & LigneADH001) = c.Offset(,
3).Value

Sheets("ADH001").Range("E" & LigneADH001) = c.Offset(,
4).Value

Sheets("ADH001").Range("F" & LigneADH001) = c.Offset(,
5).Value

Sheets("ADH001").Range("G" & LigneADH001) = c.Offset(,
6).Value

Sheets("ADH001").Select

ActiveSheet.Protect

Case "ADH002"

Sheets("ADH002").Unprotect

LigneADH002 = LigneADH002 + 1

Sheets("ADH002").Range("A" & LigneADH002) = c.Value

Sheets("ADH002").Range("B" & LigneADH002) = c.Offset(,
1).Value

Sheets("ADH002").Range("C" & LigneADH002) = c.Offset(,
2).Value

Sheets("ADH002").Range("D" & LigneADH002) = c.Offset(,
3).Value

Sheets("ADH002").Range("E" & LigneADH002) = c.Offset(,
4).Value

Sheets("ADH002").Range("F" & LigneADH002) = c.Offset(,
5).Value

Sheets("ADH002").Range("G" & LigneADH002) = c.Offset(,
6).Value

Sheets("ADH002").Protect

End Select

Sheets("Saisie des écritures").Unprotect

c.Offset(, 7) = "X"

End If

Next c

Sheets("Saisie des écritures").Select

ActiveSheet.Unprotect

Range("A2:H60000").Select

Selection.Sort key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2")
_

, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase: _

False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _

:=xlSortNormal

Range("A4").Select

ActiveSheet.Protect

Sheets("INTERFACE").Select

End Sub

Sub Accueil()

'

' Accueil Macro

' Macro enregistrée le 02/11/2006 par Philippe





Je peux ventiler les écritures jusqu'à la feuille "ADH065"

après je suis confronté a une erreur de compilation "procédure trop
longue"



Pouvez vous me venir en aide



Merci d'avance



Philippe
Avatar
Philippe
En fait ce programme fonctionnait telle quel pour ventiler sur les feuilles
de ADH001 à ADH055 mais si j'atoute des lignes de code pour inclure ADH056
je plante avec erreur procédure trop longue 64 ko
Ce que je souhaite faire réellement dans ce classeur est de parcourir les
enregistrements de la feuille "Saisie des écritures" et la ou la croix "X"
n'est pas renseigné d' ajouter cette ligne dans la feuille correspondante
ADH..et de mettre une croix pour indiquer que cela était fait


"MichDenis" a écrit dans le message de news:

Le problème majeure avec la présentation de ta macro, C'est que les plages
de cellules ne sont pas liées à une feuille particulière comme dans cet
exemple
relevé de ton code :

Set Plage = Range("A2", Range("A65536").End(xlUp))

à quelle feuille appartient Range("a2......)

Si tu appelles ta macro et que la feuille active n'est pas la "bonne", ta
macro
va se planter ... Il est aussi très difficile de réécrire cette macro sans
avoir
les références des feuilles auxquelles appartient les plages de cellules
....


"Philippe" a écrit dans le message de news:
455312af$0$5364$
Bonjoura tous,

Novice en Visual Basic, je souhaiterai votre aide
J' ai un classeur comportant plusieurs feuilles dont la principale "Saisie
des écritures" est ventilé sur plusieurs feuilles de "ADH001" à "ADH150"
J'ai adapté le programme VB suivant


Private Sub CommandButton1_Click()

Dim c As Range, Plage As Range

Dim LigneA As Long, LigneB As Long, LigneC As Long

LigneADH001 = Sheets("ADH001").Range("A65536").End(xlUp).Row

LigneADH002 = Sheets("ADH002").Range("A65536").End(xlUp).Row

Set Plage = Range("A2", Range("A65536").End(xlUp))

For Each c In Plage

If c.Offset(, 7) = "" Then

Select Case c.Offset(, 1)

Case "ADH001"

Sheets("ADH001").Select

ActiveSheet.Unprotect

LigneADH001 = LigneADH001 + 1

Sheets("ADH001").Range("A" & LigneADH001) = c.Value

Sheets("ADH001").Range("B" & LigneADH001) = c.Offset(,
1).Value

Sheets("ADH001").Range("C" & LigneADH001) = c.Offset(,
2).Value

Sheets("ADH001").Range("D" & LigneADH001) = c.Offset(,
3).Value

Sheets("ADH001").Range("E" & LigneADH001) = c.Offset(,
4).Value

Sheets("ADH001").Range("F" & LigneADH001) = c.Offset(,
5).Value

Sheets("ADH001").Range("G" & LigneADH001) = c.Offset(,
6).Value

Sheets("ADH001").Select

ActiveSheet.Protect

Case "ADH002"

Sheets("ADH002").Unprotect

LigneADH002 = LigneADH002 + 1

Sheets("ADH002").Range("A" & LigneADH002) = c.Value

Sheets("ADH002").Range("B" & LigneADH002) = c.Offset(,
1).Value

Sheets("ADH002").Range("C" & LigneADH002) = c.Offset(,
2).Value

Sheets("ADH002").Range("D" & LigneADH002) = c.Offset(,
3).Value

Sheets("ADH002").Range("E" & LigneADH002) = c.Offset(,
4).Value

Sheets("ADH002").Range("F" & LigneADH002) = c.Offset(,
5).Value

Sheets("ADH002").Range("G" & LigneADH002) = c.Offset(,
6).Value

Sheets("ADH002").Protect

End Select

Sheets("Saisie des écritures").Unprotect

c.Offset(, 7) = "X"

End If

Next c

Sheets("Saisie des écritures").Select

ActiveSheet.Unprotect

Range("A2:H60000").Select

Selection.Sort key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2")
_

, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase: > _

False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _

:=xlSortNormal

Range("A4").Select

ActiveSheet.Protect

Sheets("INTERFACE").Select

End Sub

Sub Accueil()

'

' Accueil Macro

' Macro enregistrée le 02/11/2006 par Philippe





Je peux ventiler les écritures jusqu'à la feuille "ADH065"

après je suis confronté a une erreur de compilation "procédure trop
longue"



Pouvez vous me venir en aide



Merci d'avance



Philippe













Avatar
MichDenis
Pourquoi ne pas modifier les "case" de ton Select Case
pour faire place à un appel d'une procédure qui va faire
la compilation....


Tu ajoutes la procédure suivante à la fin de ton module ...
'--------------------------------
Sub Appelcompilation(Sh As Worksheets, Cell As Range, Ligne As Long)

With Sh.Unprotect
.Select
.Range("A" & Ligne) = Cell.Value
.Range("B" & Ligne) = Cell.Offset(, 1).Value
.Range("C" & Ligne) = Cell.Offset(, 2).Value
.Range("D" & Ligne) = Cell.Offset(, 3).Value
.Range("E" & Ligne) = Cell.Offset(, 4).Value
.Range("F" & Ligne) = Cell.Offset(, 5).Value
.Range("G" & Ligne) = c.Offset(, 6).Value
.Protect
End Sub

End Sub
'--------------------------------

et tes cases de ton select case ressemblerait à ceci :

Case "ADH001"
LigneADH001 = LigneADH001 + 1
Appelcompilation Sheets("ADH001"), c, LigneADH001

Case "ADH001"
LigneADH001 = LigneADH002 + 1
Appelcompilation Sheets("ADH002"), c, LigneADH002

Non seulement ta procédure serait moins longue, mais tu augmenterait
la lisibilité de ton code ....


"Philippe" a écrit dans le message de news:
45545500$0$23507$
En fait ce programme fonctionnait telle quel pour ventiler sur les feuilles
de ADH001 à ADH055 mais si j'atoute des lignes de code pour inclure ADH056
je plante avec erreur procédure trop longue 64 ko
Ce que je souhaite faire réellement dans ce classeur est de parcourir les
enregistrements de la feuille "Saisie des écritures" et la ou la croix "X"
n'est pas renseigné d' ajouter cette ligne dans la feuille correspondante
ADH..et de mettre une croix pour indiquer que cela était fait


"MichDenis" a écrit dans le message de news:

Le problème majeure avec la présentation de ta macro, C'est que les plages
de cellules ne sont pas liées à une feuille particulière comme dans cet
exemple
relevé de ton code :

Set Plage = Range("A2", Range("A65536").End(xlUp))

à quelle feuille appartient Range("a2......)

Si tu appelles ta macro et que la feuille active n'est pas la "bonne", ta
macro
va se planter ... Il est aussi très difficile de réécrire cette macro sans
avoir
les références des feuilles auxquelles appartient les plages de cellules
....


"Philippe" a écrit dans le message de news:
455312af$0$5364$
Bonjoura tous,

Novice en Visual Basic, je souhaiterai votre aide
J' ai un classeur comportant plusieurs feuilles dont la principale "Saisie
des écritures" est ventilé sur plusieurs feuilles de "ADH001" à "ADH150"
J'ai adapté le programme VB suivant


Private Sub CommandButton1_Click()

Dim c As Range, Plage As Range

Dim LigneA As Long, LigneB As Long, LigneC As Long

LigneADH001 = Sheets("ADH001").Range("A65536").End(xlUp).Row

LigneADH002 = Sheets("ADH002").Range("A65536").End(xlUp).Row

Set Plage = Range("A2", Range("A65536").End(xlUp))

For Each c In Plage

If c.Offset(, 7) = "" Then

Select Case c.Offset(, 1)

Case "ADH001"

Sheets("ADH001").Select

ActiveSheet.Unprotect

LigneADH001 = LigneADH001 + 1

Sheets("ADH001").Range("A" & LigneADH001) = c.Value

Sheets("ADH001").Range("B" & LigneADH001) = c.Offset(,
1).Value

Sheets("ADH001").Range("C" & LigneADH001) = c.Offset(,
2).Value

Sheets("ADH001").Range("D" & LigneADH001) = c.Offset(,
3).Value

Sheets("ADH001").Range("E" & LigneADH001) = c.Offset(,
4).Value

Sheets("ADH001").Range("F" & LigneADH001) = c.Offset(,
5).Value

Sheets("ADH001").Range("G" & LigneADH001) = c.Offset(,
6).Value

Sheets("ADH001").Select

ActiveSheet.Protect

Case "ADH002"

Sheets("ADH002").Unprotect

LigneADH002 = LigneADH002 + 1

Sheets("ADH002").Range("A" & LigneADH002) = c.Value

Sheets("ADH002").Range("B" & LigneADH002) = c.Offset(,
1).Value

Sheets("ADH002").Range("C" & LigneADH002) = c.Offset(,
2).Value

Sheets("ADH002").Range("D" & LigneADH002) = c.Offset(,
3).Value

Sheets("ADH002").Range("E" & LigneADH002) = c.Offset(,
4).Value

Sheets("ADH002").Range("F" & LigneADH002) = c.Offset(,
5).Value

Sheets("ADH002").Range("G" & LigneADH002) = c.Offset(,
6).Value

Sheets("ADH002").Protect

End Select

Sheets("Saisie des écritures").Unprotect

c.Offset(, 7) = "X"

End If

Next c

Sheets("Saisie des écritures").Select

ActiveSheet.Unprotect

Range("A2:H60000").Select

Selection.Sort key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2")
_

, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase: > _

False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _

:=xlSortNormal

Range("A4").Select

ActiveSheet.Protect

Sheets("INTERFACE").Select

End Sub

Sub Accueil()

'

' Accueil Macro

' Macro enregistrée le 02/11/2006 par Philippe





Je peux ventiler les écritures jusqu'à la feuille "ADH065"

après je suis confronté a une erreur de compilation "procédure trop
longue"



Pouvez vous me venir en aide



Merci d'avance



Philippe













Avatar
Philippe
Le programme est le suivant dans saisie des écritures et non dans un module
et bloque à partir de la feuille "ADH056"
Private Sub CommandButton1_Click()
Dim c As Range, Plage As Range
Dim LigneA As Long, LigneB As Long, LigneC As Long
LigneADH001 = Sheets("ADH001").Range("A65536").End(xlUp).Row
LigneADH002 = Sheets("ADH002").Range("A65536").End(xlUp).Row
LigneADH003 = Sheets("ADH003").Range("A65536").End(xlUp).Row
LigneADH004 = Sheets("ADH004").Range("A65536").End(xlUp).Row
LigneADH005 = Sheets("ADH005").Range("A65536").End(xlUp).Row
LigneADH006 = Sheets("ADH006").Range("A65536").End(xlUp).Row
LigneADH007 = Sheets("ADH007").Range("A65536").End(xlUp).Row
LigneADH008 = Sheets("ADH008").Range("A65536").End(xlUp).Row
LigneADH009 = Sheets("ADH009").Range("A65536").End(xlUp).Row
LigneADH010 = Sheets("ADH010").Range("A65536").End(xlUp).Row
LigneADH011 = Sheets("ADH011").Range("A65536").End(xlUp).Row
LigneADH012 = Sheets("ADH012").Range("A65536").End(xlUp).Row
LigneADH013 = Sheets("ADH013").Range("A65536").End(xlUp).Row
LigneADH014 = Sheets("ADH014").Range("A65536").End(xlUp).Row
LigneADH015 = Sheets("ADH015").Range("A65536").End(xlUp).Row
LigneADH016 = Sheets("ADH016").Range("A65536").End(xlUp).Row
LigneADH017 = Sheets("ADH017").Range("A65536").End(xlUp).Row
LigneADH018 = Sheets("ADH018").Range("A65536").End(xlUp).Row
LigneADH019 = Sheets("ADH019").Range("A65536").End(xlUp).Row
LigneADH020 = Sheets("ADH020").Range("A65536").End(xlUp).Row
LigneADH021 = Sheets("ADH021").Range("A65536").End(xlUp).Row
LigneADH022 = Sheets("ADH022").Range("A65536").End(xlUp).Row
LigneADH023 = Sheets("ADH023").Range("A65536").End(xlUp).Row
LigneADH024 = Sheets("ADH024").Range("A65536").End(xlUp).Row
LigneADH025 = Sheets("ADH025").Range("A65536").End(xlUp).Row
LigneADH026 = Sheets("ADH026").Range("A65536").End(xlUp).Row
LigneADH027 = Sheets("ADH027").Range("A65536").End(xlUp).Row
LigneADH028 = Sheets("ADH028").Range("A65536").End(xlUp).Row
LigneADH029 = Sheets("ADH029").Range("A65536").End(xlUp).Row
LigneADH030 = Sheets("ADH030").Range("A65536").End(xlUp).Row
LigneADH031 = Sheets("ADH031").Range("A65536").End(xlUp).Row
LigneADH032 = Sheets("ADH032").Range("A65536").End(xlUp).Row
LigneADH033 = Sheets("ADH033").Range("A65536").End(xlUp).Row
LigneADH034 = Sheets("ADH034").Range("A65536").End(xlUp).Row
LigneADH035 = Sheets("ADH035").Range("A65536").End(xlUp).Row
LigneADH036 = Sheets("ADH036").Range("A65536").End(xlUp).Row
LigneADH037 = Sheets("ADH037").Range("A65536").End(xlUp).Row
LigneADH038 = Sheets("ADH038").Range("A65536").End(xlUp).Row
LigneADH039 = Sheets("ADH039").Range("A65536").End(xlUp).Row
LigneADH040 = Sheets("ADH040").Range("A65536").End(xlUp).Row
LigneADH041 = Sheets("ADH041").Range("A65536").End(xlUp).Row
LigneADH042 = Sheets("ADH042").Range("A65536").End(xlUp).Row
LigneADH043 = Sheets("ADH043").Range("A65536").End(xlUp).Row
LigneADH044 = Sheets("ADH044").Range("A65536").End(xlUp).Row
LigneADH045 = Sheets("ADH045").Range("A65536").End(xlUp).Row
LigneADH046 = Sheets("ADH046").Range("A65536").End(xlUp).Row
LigneADH047 = Sheets("ADH047").Range("A65536").End(xlUp).Row
LigneADH048 = Sheets("ADH048").Range("A65536").End(xlUp).Row
LigneADH049 = Sheets("ADH049").Range("A65536").End(xlUp).Row
LigneADH050 = Sheets("ADH050").Range("A65536").End(xlUp).Row
LigneADH051 = Sheets("ADH051").Range("A65536").End(xlUp).Row
LigneADH052 = Sheets("ADH052").Range("A65536").End(xlUp).Row
LigneADH053 = Sheets("ADH053").Range("A65536").End(xlUp).Row
LigneADH054 = Sheets("ADH054").Range("A65536").End(xlUp).Row
LigneADH055 = Sheets("ADH055").Range("A65536").End(xlUp).Row
LigneADH056 = Sheets("ADH056").Range("A65536").End(xlUp).Row
LigneADH057 = Sheets("ADH057").Range("A65536").End(xlUp).Row
LigneADH058 = Sheets("ADH058").Range("A65536").End(xlUp).Row
LigneADH059 = Sheets("ADH059").Range("A65536").End(xlUp).Row
LigneADH060 = Sheets("ADH060").Range("A65536").End(xlUp).Row
LigneADH061 = Sheets("ADH061").Range("A65536").End(xlUp).Row
LigneADH062 = Sheets("ADH062").Range("A65536").End(xlUp).Row
LigneADH063 = Sheets("ADH063").Range("A65536").End(xlUp).Row
LigneADH064 = Sheets("ADH064").Range("A65536").End(xlUp).Row
LigneADH065 = Sheets("ADH065").Range("A65536").End(xlUp).Row
Set Plage = Range("A2", Range("A65536").End(xlUp))
For Each c In Plage
If c.Offset(, 7) = "" Then
Select Case c.Offset(, 1)
Case "ADH001"
Sheets("ADH001").Select
ActiveSheet.Unprotect
LigneADH001 = LigneADH001 + 1
Sheets("ADH001").Range("A" & LigneADH001) = c.Value
Sheets("ADH001").Range("B" & LigneADH001) = c.Offset(,
1).Value
Sheets("ADH001").Range("C" & LigneADH001) = c.Offset(,
2).Value
Sheets("ADH001").Range("D" & LigneADH001) = c.Offset(,
3).Value
Sheets("ADH001").Range("E" & LigneADH001) = c.Offset(,
4).Value
Sheets("ADH001").Range("F" & LigneADH001) = c.Offset(,
5).Value
Sheets("ADH001").Range("G" & LigneADH001) = c.Offset(,
6).Value
Sheets("ADH001").Select
ActiveSheet.Protect
Case "ADH002"
Sheets("ADH002").Unprotect
LigneADH002 = LigneADH002 + 1
Sheets("ADH002").Range("A" & LigneADH002) = c.Value
Sheets("ADH002").Range("B" & LigneADH002) = c.Offset(,
1).Value
Sheets("ADH002").Range("C" & LigneADH002) = c.Offset(,
2).Value
Sheets("ADH002").Range("D" & LigneADH002) = c.Offset(,
3).Value
Sheets("ADH002").Range("E" & LigneADH002) = c.Offset(,
4).Value
Sheets("ADH002").Range("F" & LigneADH002) = c.Offset(,
5).Value
Sheets("ADH002").Range("G" & LigneADH002) = c.Offset(,
6).Value
Sheets("ADH002").Protect
Case "ADH003"
Sheets("ADH003").Unprotect
LigneADH003 = LigneADH003 + 1
Sheets("ADH003").Range("A" & LigneADH003) = c.Value
Sheets("ADH003").Range("B" & LigneADH003) = c.Offset(,
1).Value
Sheets("ADH003").Range("C" & LigneADH003) = c.Offset(,
2).Value
Sheets("ADH003").Range("D" & LigneADH003) = c.Offset(,
3).Value
Sheets("ADH003").Range("E" & LigneADH003) = c.Offset(,
4).Value
Sheets("ADH003").Range("F" & LigneADH003) = c.Offset(,
5).Value
Sheets("ADH003").Range("G" & LigneADH003) = c.Offset(,
6).Value
Sheets("ADH003").Protect
Case "ADH004"
Sheets("ADH004").Unprotect
LigneADH004 = LigneADH004 + 1
Sheets("ADH004").Range("A" & LigneADH004) = c.Value
Sheets("ADH004").Range("B" & LigneADH004) = c.Offset(,
1).Value
Sheets("ADH004").Range("C" & LigneADH004) = c.Offset(,
2).Value
Sheets("ADH004").Range("D" & LigneADH004) = c.Offset(,
3).Value
Sheets("ADH004").Range("E" & LigneADH004) = c.Offset(,
4).Value
Sheets("ADH004").Range("F" & LigneADH004) = c.Offset(,
5).Value
Sheets("ADH004").Range("G" & LigneADH004) = c.Offset(,
6).Value
Sheets("ADH004").Protect
Case "ADH005"
Sheets("ADH005").Unprotect
LigneADH005 = LigneADH005 + 1
Sheets("ADH005").Range("A" & LigneADH005) = c.Value
Sheets("ADH005").Range("B" & LigneADH005) = c.Offset(,
1).Value
Sheets("ADH005").Range("C" & LigneADH005) = c.Offset(,
2).Value
Sheets("ADH005").Range("D" & LigneADH005) = c.Offset(,
3).Value
Sheets("ADH005").Range("E" & LigneADH005) = c.Offset(,
4).Value
Sheets("ADH005").Range("F" & LigneADH005) = c.Offset(,
5).Value
Sheets("ADH005").Range("G" & LigneADH005) = c.Offset(,
6).Value
Sheets("ADH005").Protect
Case "ADH006"
Sheets("ADH006").Unprotect
LigneADH006 = LigneADH006 + 1
Sheets("ADH006").Range("A" & LigneADH006) = c.Value
Sheets("ADH006").Range("B" & LigneADH006) = c.Offset(,
1).Value
Sheets("ADH006").Range("C" & LigneADH006) = c.Offset(,
2).Value
Sheets("ADH006").Range("D" & LigneADH006) = c.Offset(,
3).Value
Sheets("ADH006").Range("E" & LigneADH006) = c.Offset(,
4).Value
Sheets("ADH006").Range("F" & LigneADH006) = c.Offset(,
5).Value
Sheets("ADH006").Range("G" & LigneADH006) = c.Offset(,
6).Value
Sheets("ADH006").Protect
Case "ADH007"
Sheets("ADH007").Unprotect
LigneADH007 = LigneADH007 + 1
Sheets("ADH007").Range("A" & LigneADH007) = c.Value
Sheets("ADH007").Range("B" & LigneADH007) = c.Offset(,
1).Value
Sheets("ADH007").Range("C" & LigneADH007) = c.Offset(,
2).Value
Sheets("ADH007").Range("D" & LigneADH007) = c.Offset(,
3).Value
Sheets("ADH007").Range("E" & LigneADH007) = c.Offset(,
4).Value
Sheets("ADH007").Range("F" & LigneADH007) = c.Offset(,
5).Value
Sheets("ADH007").Range("G" & LigneADH007) = c.Offset(,
6).Value
Sheets("ADH007").Protect
Case "ADH008"
Sheets("ADH008").Unprotect
LigneADH008 = LigneADH008 + 1
Sheets("ADH008").Range("A" & LigneADH008) = c.Value
Sheets("ADH008").Range("B" & LigneADH008) = c.Offset(,
1).Value
Sheets("ADH008").Range("C" & LigneADH008) = c.Offset(,
2).Value
Sheets("ADH008").Range("D" & LigneADH008) = c.Offset(,
3).Value
Sheets("ADH008").Range("E" & LigneADH008) = c.Offset(,
4).Value
Sheets("ADH008").Range("F" & LigneADH008) = c.Offset(,
5).Value
Sheets("ADH008").Range("G" & LigneADH008) = c.Offset(,
6).Value
Sheets("ADH008").Protect
Case "ADH009"
Sheets("ADH009").Unprotect
LigneADH009 = LigneADH009 + 1
Sheets("ADH009").Range("A" & LigneADH009) = c.Value
Sheets("ADH009").Range("B" & LigneADH009) = c.Offset(,
1).Value
Sheets("ADH009").Range("C" & LigneADH009) = c.Offset(,
2).Value
Sheets("ADH009").Range("D" & LigneADH009) = c.Offset(,
3).Value
Sheets("ADH009").Range("E" & LigneADH009) = c.Offset(,
4).Value
Sheets("ADH009").Range("F" & LigneADH009) = c.Offset(,
5).Value
Sheets("ADH009").Range("G" & LigneADH009) = c.Offset(,
6).Value
Sheets("ADH009").Protect
Case "ADH010"
Sheets("ADH010").Unprotect
LigneADH010 = LigneADH010 + 1
Sheets("ADH010").Range("A" & LigneADH010) = c.Value
Sheets("ADH010").Range("B" & LigneADH010) = c.Offset(,
1).Value
Sheets("ADH010").Range("C" & LigneADH010) = c.Offset(,
2).Value
Sheets("ADH010").Range("D" & LigneADH010) = c.Offset(,
3).Value
Sheets("ADH010").Range("E" & LigneADH010) = c.Offset(,
4).Value
Sheets("ADH010").Range("F" & LigneADH010) = c.Offset(,
5).Value
Sheets("ADH010").Range("G" & LigneADH010) = c.Offset(,
6).Value
Sheets("ADH010").Protect
Case "ADH011"
Sheets("ADH011").Unprotect
LigneADH011 = LigneADH011 + 1
Sheets("ADH011").Range("A" & LigneADH011) = c.Value
Sheets("ADH011").Range("B" & LigneADH011) = c.Offset(,
1).Value
Sheets("ADH011").Range("C" & LigneADH011) = c.Offset(,
2).Value
Sheets("ADH011").Range("D" & LigneADH011) = c.Offset(,
3).Value
Sheets("ADH011").Range("E" & LigneADH011) = c.Offset(,
4).Value
Sheets("ADH011").Range("F" & LigneADH011) = c.Offset(,
5).Value
Sheets("ADH011").Range("G" & LigneADH011) = c.Offset(,
6).Value
Sheets("ADH011").Protect
Case "ADH012"
Sheets("ADH012").Unprotect
LigneADH012 = LigneADH012 + 1
Sheets("ADH012").Range("A" & LigneADH012) = c.Value
Sheets("ADH012").Range("B" & LigneADH012) = c.Offset(,
1).Value
Sheets("ADH012").Range("C" & LigneADH012) = c.Offset(,
2).Value
Sheets("ADH012").Range("D" & LigneADH012) = c.Offset(,
3).Value
Sheets("ADH012").Range("E" & LigneADH012) = c.Offset(,
4).Value
Sheets("ADH012").Range("F" & LigneADH012) = c.Offset(,
5).Value
Sheets("ADH012").Range("G" & LigneADH012) = c.Offset(,
6).Value
Sheets("ADH012").Protect
Case "ADH013"
Sheets("ADH013").Unprotect
LigneADH013 = LigneADH013 + 1
Sheets("ADH013").Range("A" & LigneADH013) = c.Value
Sheets("ADH013").Range("B" & LigneADH013) = c.Offset(,
1).Value
Sheets("ADH013").Range("C" & LigneADH013) = c.Offset(,
2).Value
Sheets("ADH013").Range("D" & LigneADH013) = c.Offset(,
3).Value
Sheets("ADH013").Range("E" & LigneADH013) = c.Offset(,
4).Value
Sheets("ADH013").Range("F" & LigneADH013) = c.Offset(,
5).Value
Sheets("ADH013").Range("G" & LigneADH013) = c.Offset(,
6).Value
Sheets("ADH013").Protect
Case "ADH014"
Sheets("ADH014").Unprotect
LigneADH014 = LigneADH014 + 1
Sheets("ADH014").Range("A" & LigneADH014) = c.Value
Sheets("ADH014").Range("B" & LigneADH014) = c.Offset(,
1).Value
Sheets("ADH014").Range("C" & LigneADH014) = c.Offset(,
2).Value
Sheets("ADH014").Range("D" & LigneADH014) = c.Offset(,
3).Value
Sheets("ADH014").Range("E" & LigneADH014) = c.Offset(,
4).Value
Sheets("ADH014").Range("F" & LigneADH014) = c.Offset(,
5).Value
Sheets("ADH014").Range("G" & LigneADH014) = c.Offset(,
6).Value
Sheets("ADH014").Protect
Case "ADH015"
Sheets("ADH015").Unprotect
LigneADH015 = LigneADH015 + 1
Sheets("ADH015").Range("A" & LigneADH015) = c.Value
Sheets("ADH015").Range("B" & LigneADH015) = c.Offset(,
1).Value
Sheets("ADH015").Range("C" & LigneADH015) = c.Offset(,
2).Value
Sheets("ADH015").Range("D" & LigneADH015) = c.Offset(,
3).Value
Sheets("ADH015").Range("E" & LigneADH015) = c.Offset(,
4).Value
Sheets("ADH015").Range("F" & LigneADH015) = c.Offset(,
5).Value
Sheets("ADH015").Range("G" & LigneADH015) = c.Offset(,
6).Value
Sheets("ADH015").Protect
Case "ADH016"
Sheets("ADH016").Unprotect
LigneADH016 = LigneADH016 + 1
Sheets("ADH016").Range("A" & LigneADH016) = c.Value
Sheets("ADH016").Range("B" & LigneADH016) = c.Offset(,
1).Value
Sheets("ADH016").Range("C" & LigneADH016) = c.Offset(,
2).Value
Sheets("ADH016").Range("D" & LigneADH016) = c.Offset(,
3).Value
Sheets("ADH016").Range("E" & LigneADH016) = c.Offset(,
4).Value
Sheets("ADH016").Range("F" & LigneADH016) = c.Offset(,
5).Value
Sheets("ADH016").Range("G" & LigneADH016) = c.Offset(,
6).Value
Sheets("ADH016").Protect
Case "ADH017"
Sheets("ADH017").Unprotect
LigneADH017 = LigneADH017 + 1
Sheets("ADH017").Range("A" & LigneADH017) = c.Value
Sheets("ADH017").Range("B" & LigneADH017) = c.Offset(,
1).Value
Sheets("ADH017").Range("C" & LigneADH017) = c.Offset(,
2).Value
Sheets("ADH017").Range("D" & LigneADH017) = c.Offset(,
3).Value
Sheets("ADH017").Range("E" & LigneADH017) = c.Offset(,
4).Value
Sheets("ADH017").Range("F" & LigneADH017) = c.Offset(,
5).Value
Sheets("ADH017").Range("G" & LigneADH017) = c.Offset(,
6).Value
Sheets("ADH017").Protect
Case "ADH018"
Sheets("ADH018").Unprotect
LigneADH018 = LigneADH018 + 1
Sheets("ADH018").Range("A" & LigneADH018) = c.Value
Sheets("ADH018").Range("B" & LigneADH018) = c.Offset(,
1).Value
Sheets("ADH018").Range("C" & LigneADH018) = c.Offset(,
2).Value
Sheets("ADH018").Range("D" & LigneADH018) = c.Offset(,
3).Value
Sheets("ADH018").Range("E" & LigneADH018) = c.Offset(,
4).Value
Sheets("ADH018").Range("F" & LigneADH018) = c.Offset(,
5).Value
Sheets("ADH018").Range("G" & LigneADH018) = c.Offset(,
6).Value
Sheets("ADH018").Protect
Case "ADH019"
Sheets("ADH019").Unprotect
LigneADH019 = LigneADH019 + 1
Sheets("ADH019").Range("A" & LigneADH019) = c.Value
Sheets("ADH019").Range("B" & LigneADH019) = c.Offset(,
1).Value
Sheets("ADH019").Range("C" & LigneADH019) = c.Offset(,
2).Value
Sheets("ADH019").Range("D" & LigneADH019) = c.Offset(,
3).Value
Sheets("ADH019").Range("E" & LigneADH019) = c.Offset(,
4).Value
Sheets("ADH019").Range("F" & LigneADH019) = c.Offset(,
5).Value
Sheets("ADH019").Range("G" & LigneADH019) = c.Offset(,
6).Value
Sheets("ADH019").Protect
Case "ADH020"
Sheets("ADH020").Unprotect
LigneADH020 = LigneADH020 + 1
Sheets("ADH020").Range("A" & LigneADH020) = c.Value
Sheets("ADH020").Range("B" & LigneADH020) = c.Offset(,
1).Value
Sheets("ADH020").Range("C" & LigneADH020) = c.Offset(,
2).Value
Sheets("ADH020").Range("D" & LigneADH020) = c.Offset(,
3).Value
Sheets("ADH020").Range("E" & LigneADH020) = c.Offset(,
4).Value
Sheets("ADH020").Range("F" & LigneADH020) = c.Offset(,
5).Value
Sheets("ADH020").Range("G" & LigneADH020) = c.Offset(,
6).Value
Sheets("ADH020").Protect
Case "ADH021"
Sheets("ADH021").Unprotect
LigneADH021 = LigneADH021 + 1
Sheets("ADH021").Range("A" & LigneADH021) = c.Value
Sheets("ADH021").Range("B" & LigneADH021) = c.Offset(,
1).Value
Sheets("ADH021").Range("C" & LigneADH021) = c.Offset(,
2).Value
Sheets("ADH021").Range("D" & LigneADH021) = c.Offset(,
3).Value
Sheets("ADH021").Range("E" & LigneADH021) = c.Offset(,
4).Value
Sheets("ADH021").Range("F" & LigneADH021) = c.Offset(,
5).Value
Sheets("ADH021").Range("G" & LigneADH021) = c.Offset(,
6).Value
Sheets("ADH021").Protect
Case "ADH022"
Sheets("ADH022").Unprotect
LigneADH022 = LigneADH022 + 1
Sheets("ADH022").Range("A" & LigneADH022) = c.Value
Sheets("ADH022").Range("B" & LigneADH022) = c.Offset(,
1).Value
Sheets("ADH022").Range("C" & LigneADH022) = c.Offset(,
2).Value
Sheets("ADH022").Range("D" & LigneADH022) = c.Offset(,
3).Value
Sheets("ADH022").Range("E" & LigneADH022) = c.Offset(,
4).Value
Sheets("ADH022").Range("F" & LigneADH022) = c.Offset(,
5).Value
Sheets("ADH022").Range("G" & LigneADH022) = c.Offset(,
6).Value
Sheets("ADH022").Protect
Case "ADH023"
Sheets("ADH023").Unprotect
LigneADH023 = LigneADH023 + 1
Sheets("ADH023").Range("A" & LigneADH023) = c.Value
Sheets("ADH023").Range("B" & LigneADH023) = c.Offset(,
1).Value
Sheets("ADH023").Range("C" & LigneADH023) = c.Offset(,
2).Value
Sheets("ADH023").Range("D" & LigneADH023) = c.Offset(,
3).Value
Sheets("ADH023").Range("E" & LigneADH023) = c.Offset(,
4).Value
Sheets("ADH023").Range("F" & LigneADH023) = c.Offset(,
5).Value
Sheets("ADH023").Range("G" & LigneADH023) = c.Offset(,
6).Value
Sheets("ADH023").Protect
Case "ADH024"
Sheets("ADH024").Unprotect
LigneADH024 = LigneADH024 + 1
Sheets("ADH024").Range("A" & LigneADH024) = c.Value
Sheets("ADH024").Range("B" & LigneADH024) = c.Offset(,
1).Value
Sheets("ADH024").Range("C" & LigneADH024) = c.Offset(,
2).Value
Sheets("ADH024").Range("D" & LigneADH024) = c.Offset(,
3).Value
Sheets("ADH024").Range("E" & LigneADH024) = c.Offset(,
4).Value
Sheets("ADH024").Range("F" & LigneADH024) = c.Offset(,
5).Value
Sheets("ADH024").Range("G" & LigneADH024) = c.Offset(,
6).Value
Sheets("ADH024").Protect
Case "ADH025"
Sheets("ADH025").Unprotect
LigneADH025 = LigneADH025 + 1
Sheets("ADH025").Range("A" & LigneADH025) = c.Value
Sheets("ADH025").Range("B" & LigneADH025) = c.Offset(,
1).Value
Sheets("ADH025").Range("C" & LigneADH025) = c.Offset(,
2).Value
Sheets("ADH025").Range("D" & LigneADH025) = c.Offset(,
3).Value
Sheets("ADH025").Range("E" & LigneADH025) = c.Offset(,
4).Value
Sheets("ADH025").Range("F" & LigneADH025) = c.Offset(,
5).Value
Sheets("ADH025").Range("G" & LigneADH025) = c.Offset(,
6).Value
Sheets("ADH025").Protect
Case "ADH026"
Sheets("ADH026").Unprotect
LigneADH026 = LigneADH026 + 1
Sheets("ADH026").Range("A" & LigneADH026) = c.Value
Sheets("ADH026").Range("B" & LigneADH026) = c.Offset(,
1).Value
Sheets("ADH026").Range("C" & LigneADH026) = c.Offset(,
2).Value
Sheets("ADH026").Range("D" & LigneADH026) = c.Offset(,
3).Value
Sheets("ADH026").Range("E" & LigneADH026) = c.Offset(,
4).Value
Sheets("ADH026").Range("F" & LigneADH026) = c.Offset(,
5).Value
Sheets("ADH026").Range("G" & LigneADH026) = c.Offset(,
6).Value
Sheets("ADH026").Protect
Case "ADH027"
Sheets("ADH027").Unprotect
LigneADH027 = LigneADH027 + 1
Sheets("ADH027").Range("A" & LigneADH027) = c.Value
Sheets("ADH027").Range("B" & LigneADH027) = c.Offset(,
1).Value
Sheets("ADH027").Range("C" & LigneADH027) = c.Offset(,
2).Value
Sheets("ADH027").Range("D" & LigneADH027) = c.Offset(,
3).Value
Sheets("ADH027").Range("E" & LigneADH027) = c.Offset(,
4).Value
Sheets("ADH027").Range("F" & LigneADH027) = c.Offset(,
5).Value
Sheets("ADH027").Range("G" & LigneADH027) = c.Offset(,
6).Value
Sheets("ADH027").Protect
Case "ADH028"
Sheets("ADH028").Unprotect
LigneADH028 = LigneADH028 + 1
Sheets("ADH028").Range("A" & LigneADH028) = c.Value
Sheets("ADH028").Range("B" & LigneADH028) = c.Offset(,
1).Value
Sheets("ADH028").Range("C" & LigneADH028) = c.Offset(,
2).Value
Sheets("ADH028").Range("D" & LigneADH028) = c.Offset(,
3).Value
Sheets("ADH028").Range("E" & LigneADH028) = c.Offset(,
4).Value
Sheets("ADH028").Range("F" & LigneADH028) = c.Offset(,
5).Value
Sheets("ADH028").Range("G" & LigneADH028) = c.Offset(,
6).Value
Sheets("ADH028").Protect
Case "ADH029"
Sheets("ADH029").Unprotect
LigneADH029 = LigneADH029 + 1
Sheets("ADH029").Range("A" & LigneADH029) = c.Value
Sheets("ADH029").Range("B" & LigneADH029) = c.Offset(,
1).Value
Sheets("ADH029").Range("C" & LigneADH029) = c.Offset(,
2).Value
Sheets("ADH029").Range("D" & LigneADH029) = c.Offset(,
3).Value
Sheets("ADH029").Range("E" & LigneADH029) = c.Offset(,
4).Value
Sheets("ADH029").Range("F" & LigneADH029) = c.Offset(,
5).Value
Sheets("ADH029").Range("G" & LigneADH029) = c.Offset(,
6).Value
Sheets("ADH029").Protect
Case "ADH030"
Sheets("ADH030").Unprotect
LigneADH030 = LigneADH030 + 1
Sheets("ADH030").Range("A" & LigneADH030) = c.Value
Sheets("ADH030").Range("B" & LigneADH030) = c.Offset(,
1).Value
Sheets("ADH030").Range("C" & LigneADH030) = c.Offset(,
2).Value
Sheets("ADH030").Range("D" & LigneADH030) = c.Offset(,
3).Value
Sheets("ADH030").Range("E" & LigneADH030) = c.Offset(,
4).Value
Sheets("ADH030").Range("F" & LigneADH030) = c.Offset(,
5).Value
Sheets("ADH030").Range("G" & LigneADH030) = c.Offset(,
6).Value
Sheets("ADH030").Protect
Case "ADH031"
Sheets("ADH031").Unprotect
LigneADH031 = LigneADH031 + 1
Sheets("ADH031").Range("A" & LigneADH031) = c.Value
Sheets("ADH031").Range("B" & LigneADH031) = c.Offset(,
1).Value
Sheets("ADH031").Range("C" & LigneADH031) = c.Offset(,
2).Value
Sheets("ADH031").Range("D" & LigneADH031) = c.Offset(,
3).Value
Sheets("ADH031").Range("E" & LigneADH031) = c.Offset(,
4).Value
Sheets("ADH031").Range("F" & LigneADH031) = c.Offset(,
5).Value
Sheets("ADH031").Range("G" & LigneADH031) = c.Offset(,
6).Value
Sheets("ADH031").Protect
Case "ADH032"
Sheets("ADH032").Unprotect
LigneADH032 = LigneADH032 + 1
Sheets("ADH032").Range("A" & LigneADH032) = c.Value
Sheets("ADH032").Range("B" & LigneADH032) = c.Offset(,
1).Value
Sheets("ADH032").Range("C" & LigneADH032) = c.Offset(,
2).Value
Sheets("ADH032").Range("D" & LigneADH032) = c.Offset(,
3).Value
Sheets("ADH032").Range("E" & LigneADH032) = c.Offset(,
4).Value
Sheets("ADH032").Range("F" & LigneADH032) = c.Offset(,
5).Value
Sheets("ADH032").Range("G" & LigneADH032) = c.Offset(,
6).Value
Sheets("ADH032").Protect
Case "ADH033"
Sheets("ADH033").Unprotect
LigneADH033 = LigneADH033 + 1
Sheets("ADH033").Range("A" & LigneADH033) = c.Value
Sheets("ADH033").Range("B" & LigneADH033) = c.Offset(,
1).Value
Sheets("ADH033").Range("C" & LigneADH033) = c.Offset(,
2).Value
Sheets("ADH033").Range("D" & LigneADH033) = c.Offset(,
3).Value
Sheets("ADH033").Range("E" & LigneADH033) = c.Offset(,
4).Value
Sheets("ADH033").Range("F" & LigneADH033) = c.Offset(,
5).Value
Sheets("ADH033").Range("G" & LigneADH033) = c.Offset(,
6).Value
Sheets("ADH033").Protect
Case "ADH034"
Sheets("ADH034").Unprotect
LigneADH034 = LigneADH034 + 1
Sheets("ADH034").Range("A" & LigneADH034) = c.Value
Sheets("ADH034").Range("B" & LigneADH034) = c.Offset(,
1).Value
Sheets("ADH034").Range("C" & LigneADH034) = c.Offset(,
2).Value
Sheets("ADH034").Range("D" & LigneADH034) = c.Offset(,
3).Value
Sheets("ADH034").Range("E" & LigneADH034) = c.Offset(,
4).Value
Sheets("ADH034").Range("F" & LigneADH034) = c.Offset(,
5).Value
Sheets("ADH034").Range("G" & LigneADH034) = c.Offset(,
6).Value
Sheets("ADH034").Protect
Case "ADH035"
Sheets("ADH035").Unprotect
LigneADH035 = LigneADH035 + 1
Sheets("ADH035").Range("A" & LigneADH035) = c.Value
Sheets("ADH035").Range("B" & LigneADH035) = c.Offset(,
1).Value
Sheets("ADH035").Range("C" & LigneADH035) = c.Offset(,
2).Value
Sheets("ADH035").Range("D" & LigneADH035) = c.Offset(,
3).Value
Sheets("ADH035").Range("E" & LigneADH035) = c.Offset(,
4).Value
Sheets("ADH035").Range("F" & LigneADH035) = c.Offset(,
5).Value
Sheets("ADH035").Range("G" & LigneADH035) = c.Offset(,
6).Value
Sheets("ADH035").Protect
Case "ADH036"
Sheets("ADH036").Unprotect
LigneADH036 = LigneADH036 + 1
Sheets("ADH036").Range("A" & LigneADH036) = c.Value
Sheets("ADH036").Range("B" & LigneADH036) = c.Offset(,
1).Value
Sheets("ADH036").Range("C" & LigneADH036) = c.Offset(,
2).Value
Sheets("ADH036").Range("D" & LigneADH036) = c.Offset(,
3).Value
Sheets("ADH036").Range("E" & LigneADH036) = c.Offset(,
4).Value
Sheets("ADH036").Range("F" & LigneADH036) = c.Offset(,
5).Value
Sheets("ADH036").Range("G" & LigneADH036) = c.Offset(,
6).Value
Sheets("ADH036").Protect
Case "ADH037"
Sheets("ADH037").Unprotect
LigneADH037 = LigneADH037 + 1
Sheets("ADH037").Range("A" & LigneADH037) = c.Value
Sheets("ADH037").Range("B" & LigneADH037) = c.Offset(,
1).Value
Sheets("ADH037").Range("C" & LigneADH037) = c.Offset(,
2).Value
Sheets("ADH037").Range("D" & LigneADH037) = c.Offset(,
3).Value
Sheets("ADH037").Range("E" & LigneADH037) = c.Offset(,
4).Value
Sheets("ADH037").Range("F" & LigneADH037) = c.Offset(,
5).Value
Sheets("ADH037").Range("G" & LigneADH037) = c.Offset(,
6).Value
Sheets("ADH037").Protect
Case "ADH038"
Sheets("ADH038").Unprotect
LigneADH038 = LigneADH038 + 1
Sheets("ADH038").Range("A" & LigneADH038) = c.Value
Sheets("ADH038").Range("B" & LigneADH038) = c.Offset(,
1).Value
Sheets("ADH038").Range("C" & LigneADH038) = c.Offset(,
2).Value
Sheets("ADH038").Range("D" & LigneADH038) = c.Offset(,
3).Value
Sheets("ADH038").Range("E" & LigneADH038) = c.Offset(,
4).Value
Sheets("ADH038").Range("F" & LigneADH038) = c.Offset(,
5).Value
Sheets("ADH038").Range("G" & LigneADH038) = c.Offset(,
6).Value
Sheets("ADH038").Protect
Case "ADH039"
Sheets("ADH039").Unprotect
LigneADH039 = LigneADH039 + 1
Sheets("ADH039").Range("A" & LigneADH039) = c.Value
Sheets("ADH039").Range("B" & LigneADH039) = c.Offset(,
1).Value
Sheets("ADH039").Range("C" & LigneADH039) = c.Offset(,
2).Value
Sheets("ADH039").Range("D" & LigneADH039) = c.Offset(,
3).Value
Sheets("ADH039").Range("E" & LigneADH039) = c.Offset(,
4).Value
Sheets("ADH039").Range("F" & LigneADH039) = c.Offset(,
5).Value
Sheets("ADH039").Range("G" & LigneADH039) = c.Offset(,
6).Value
Sheets("ADH039").Protect
Case "ADH040"
Sheets("ADH040").Unprotect
LigneADH040 = LigneADH040 + 1
Sheets("ADH040").Range("A" & LigneADH040) = c.Value
Sheets("ADH040").Range("B" & LigneADH040) = c.Offset(,
1).Value
Sheets("ADH040").Range("C" & LigneADH040) = c.Offset(,
2).Value
Sheets("ADH040").Range("D" & LigneADH040) = c.Offset(,
3).Value
Sheets("ADH040").Range("E" & LigneADH040) = c.Offset(,
4).Value
Sheets("ADH040").Range("F" & LigneADH040) = c.Offset(,
5).Value
Sheets("ADH040").Range("G" & LigneADH040) = c.Offset(,
6).Value
Sheets("ADH040").Protect
Case "ADH041"
Sheets("ADH041").Unprotect
LigneADH041 = LigneADH041 + 1
Sheets("ADH041").Range("A" & LigneADH041) = c.Value
Sheets("ADH041").Range("B" & LigneADH041) = c.Offset(,
1).Value
Sheets("ADH041").Range("C" & LigneADH041) = c.Offset(,
2).Value
Sheets("ADH041").Range("D" & LigneADH041) = c.Offset(,
3).Value
Sheets("ADH041").Range("E" & LigneADH041) = c.Offset(,
4).Value
Sheets("ADH041").Range("F" & LigneADH041) = c.Offset(,
5).Value
Sheets("ADH041").Range("G" & LigneADH041) = c.Offset(,
6).Value
Sheets("ADH041").Protect
Case "ADH042"
Sheets("ADH042").Unprotect
LigneADH042 = LigneADH042 + 1
Sheets("ADH042").Range("A" & LigneADH042) = c.Value
Sheets("ADH042").Range("B" & LigneADH042) = c.Offset(,
1).Value
Sheets("ADH042").Range("C" & LigneADH042) = c.Offset(,
2).Value
Sheets("ADH042").Range("D" & LigneADH042) = c.Offset(,
3).Value
Sheets("ADH042").Range("E" & LigneADH042) = c.Offset(,
4).Value
Sheets("ADH042").Range("F" & LigneADH042) = c.Offset(,
5).Value
Sheets("ADH042").Range("G" & LigneADH042) = c.Offset(,
6).Value
Sheets("ADH042").Protect
Case "ADH043"
Sheets("ADH043").Unprotect
LigneADH043 = LigneADH043 + 1
Sheets("ADH043").Range("A" & LigneADH043) = c.Value
Sheets("ADH043").Range("B" & LigneADH043) = c.Offset(,
1).Value
Sheets("ADH043").Range("C" & LigneADH043) = c.Offset(,
2).Value
Sheets("ADH043").Range("D" & LigneADH043) = c.Offset(,
3).Value
Sheets("ADH043").Range("E" & LigneADH043) = c.Offset(,
4).Value
Sheets("ADH043").Range("F" & LigneADH043) = c.Offset(,
5).Value
Sheets("ADH043").Range("G" & LigneADH043) = c.Offset(,
6).Value
Sheets("ADH043").Protect
Case "ADH044"
Sheets("ADH044").Unprotect
LigneADH044 = LigneADH044 + 1
Sheets("ADH044").Range("A" & LigneADH044) = c.Value
Sheets("ADH044").Range("B" & LigneADH044) = c.Offset(,
1).Value
Sheets("ADH044").Range("C" & LigneADH044) = c.Offset(,
2).Value
Sheets("ADH044").Range("D" & LigneADH044) = c.Offset(,
3).Value
Sheets("ADH044").Range("E" & LigneADH044) = c.Offset(,
4).Value
Sheets("ADH044").Range("F" & LigneADH044) = c.Offset(,
5).Value
Sheets("ADH044").Range("G" & LigneADH044) = c.Offset(,
6).Value
Sheets("ADH044").Protect
Case "ADH045"
Sheets("ADH045").Unprotect
LigneADH045 = LigneADH045 + 1
Sheets("ADH045").Range("A" & LigneADH045) = c.Value
Sheets("ADH045").Range("B" & LigneADH045) = c.Offset(,
1).Value
Sheets("ADH045").Range("C" & LigneADH045) = c.Offset(,
2).Value
Sheets("ADH045").Range("D" & LigneADH045) = c.Offset(,
3).Value
Sheets("ADH045").Range("E" & LigneADH045) = c.Offset(,
4).Value
Sheets("ADH045").Range("F" & LigneADH045) = c.Offset(,
5).Value
Sheets("ADH045").Range("G" & LigneADH045) = c.Offset(,
6).Value
Sheets("ADH045").Protect
Case "ADH046"
Sheets("ADH046").Unprotect
LigneADH046 = LigneADH046 + 1
Sheets("ADH046").Range("A" & LigneADH046) = c.Value
Sheets("ADH046").Range("B" & LigneADH046) = c.Offset(,
1).Value
Sheets("ADH046").Range("C" & LigneADH046) = c.Offset(,
2).Value
Sheets("ADH046").Range("D" & LigneADH046) = c.Offset(,
3).Value
Sheets("ADH046").Range("E" & LigneADH046) = c.Offset(,
4).Value
Sheets("ADH046").Range("F" & LigneADH046) = c.Offset(,
5).Value
Sheets("ADH046").Range("G" & LigneADH046) = c.Offset(,
6).Value
Sheets("ADH046").Protect
Case "ADH047"
Sheets("ADH047").Unprotect
LigneADH047 = LigneADH047 + 1
Sheets("ADH047").Range("A" & LigneADH047) = c.Value
Sheets("ADH047").Range("B" & LigneADH047) = c.Offset(,
1).Value
Sheets("ADH047").Range("C" & LigneADH047) = c.Offset(,
2).Value
Sheets("ADH047").Range("D" & LigneADH047) = c.Offset(,
3).Value
Sheets("ADH047").Range("E" & LigneADH047) = c.Offset(,
4).Value
Sheets("ADH047").Range("F" & LigneADH047) = c.Offset(,
5).Value
Sheets("ADH047").Range("G" & LigneADH047) = c.Offset(,
6).Value
Sheets("ADH047").Protect
Case "ADH048"
Sheets("ADH048").Unprotect
LigneADH048 = LigneADH048 + 1
Sheets("ADH048").Range("A" & LigneADH048) = c.Value
Sheets("ADH048").Range("B" & LigneADH048) = c.Offset(,
1).Value
Sheets("ADH048").Range("C" & LigneADH048) = c.Offset(,
2).Value
Sheets("ADH048").Range("D" & LigneADH048) = c.Offset(,
3).Value
Sheets("ADH048").Range("E" & LigneADH048) = c.Offset(,
4).Value
Sheets("ADH048").Range("F" & LigneADH048) = c.Offset(,
5).Value
Sheets("ADH048").Range("G" & LigneADH048) = c.Offset(,
6).Value
Sheets("ADH048").Protect
Case "ADH049"
Sheets("ADH049").Unprotect
LigneADH049 = LigneADH049 + 1
Sheets("ADH049").Range("A" & LigneADH049) = c.Value
Sheets("ADH049").Range("B" & LigneADH049) = c.Offset(,
1).Value
Sheets("ADH049").Range("C" & LigneADH049) = c.Offset(,
2).Value
Sheets("ADH049").Range("D" & LigneADH049) = c.Offset(,
3).Value
Sheets("ADH049").Range("E" & LigneADH049) = c.Offset(,
4).Value
Sheets("ADH049").Range("F" & LigneADH049) = c.Offset(,
5).Value
Sheets("ADH049").Range("G" & LigneADH049) = c.Offset(,
6).Value
Sheets("ADH049").Protect
Case "ADH050"
Sheets("ADH050").Unprotect
LigneADH050 = LigneADH050 + 1
Sheets("ADH050").Range("A" & LigneADH050) = c.Value
Sheets("ADH050").Range("B" & LigneADH050) = c.Offset(,
1).Value
Sheets("ADH050").Range("C" & LigneADH050) = c.Offset(,
2).Value
Sheets("ADH050").Range("D" & LigneADH050) = c.Offset(,
3).Value
Sheets("ADH050").Range("E" & LigneADH050) = c.Offset(,
4).Value
Sheets("ADH050").Range("F" & LigneADH050) = c.Offset(,
5).Value
Sheets("ADH050").Range("G" & LigneADH050) = c.Offset(,
6).Value
Sheets("ADH050").Protect
Case "ADH051"
Sheets("ADH051").Unprotect
LigneADH051 = LigneADH051 + 1
Sheets("ADH051").Range("A" & LigneADH051) = c.Value
Sheets("ADH051").Range("B" & LigneADH051) = c.Offset(,
1).Value
Sheets("ADH051").Range("C" & LigneADH051) = c.Offset(,
2).Value
Sheets("ADH051").Range("D" & LigneADH051) = c.Offset(,
3).Value
Sheets("ADH051").Range("E" & LigneADH051) = c.Offset(,
4).Value
Sheets("ADH051").Range("F" & LigneADH051) = c.Offset(,
5).Value
Sheets("ADH051").Range("G" & LigneADH051) = c.Offset(,
6).Value
Sheets("ADH051").Protect
Case "ADH052"
Sheets("ADH052").Unprotect
LigneADH052 = LigneADH052 + 1
Sheets("ADH052").Range("A" & LigneADH052) = c.Value
Sheets("ADH052").Range("B" & LigneADH052) = c.Offset(,
1).Value
Sheets("ADH052").Range("C" & LigneADH052) = c.Offset(,
2).Value
Sheets("ADH052").Range("D" & LigneADH052) = c.Offset(,
3).Value
Sheets("ADH052").Range("E" & LigneADH052) = c.Offset(,
4).Value
Sheets("ADH052").Range("F" & LigneADH052) = c.Offset(,
5).Value
Sheets("ADH052").Range("G" & LigneADH052) = c.Offset(,
6).Value
Sheets("ADH052").Protect
Case "ADH053"
Sheets("ADH053").Unprotect
LigneADH053 = LigneADH053 + 1
Sheets("ADH053").Range("A" & LigneADH053) = c.Value
Sheets("ADH053").Range("B" & LigneADH053) = c.Offset(,
1).Value
Sheets("ADH053").Range("C" & LigneADH053) = c.Offset(,
2).Value
Sheets("ADH053").Range("D" & LigneADH053) = c.Offset(,
3).Value
Sheets("ADH053").Range("E" & LigneADH053) = c.Offset(,
4).Value
Sheets("ADH053").Range("F" & LigneADH053) = c.Offset(,
5).Value
Sheets("ADH053").Range("G" & LigneADH053) = c.Offset(,
6).Value
Sheets("ADH053").Protect
Case "ADH054"
Sheets("ADH054").Unprotect
LigneADH054 = LigneADH054 + 1
Sheets("ADH054").Range("A" & LigneADH054) = c.Value
Sheets("ADH054").Range("B" & LigneADH054) = c.Offset(,
1).Value
Sheets("ADH054").Range("C" & LigneADH054) = c.Offset(,
2).Value
Sheets("ADH054").Range("D" & LigneADH054) = c.Offset(,
3).Value
Sheets("ADH054").Range("E" & LigneADH054) = c.Offset(,
4).Value
Sheets("ADH054").Range("F" & LigneADH054) = c.Offset(,
5).Value
Sheets("ADH054").Range("G" & LigneADH054) = c.Offset(,
6).Value
Sheets("ADH054").Protect
Case "ADH055"
Sheets("ADH055").Unprotect
LigneADH055 = LigneADH055 + 1
Sheets("ADH055").Range("A" & LigneADH055) = c.Value
Sheets("ADH055").Range("B" & LigneADH055) = c.Offset(,
1).Value
Sheets("ADH055").Range("C" & LigneADH055) = c.Offset(,
2).Value
Sheets("ADH055").Range("D" & LigneADH055) = c.Offset(,
3).Value
Sheets("ADH055").Range("E" & LigneADH055) = c.Offset(,
4).Value
Sheets("ADH055").Range("F" & LigneADH055) = c.Offset(,
5).Value
Sheets("ADH055").Range("G" & LigneADH055) = c.Offset(,
6).Value
Sheets("ADH055").Protect
Case "ADH056"
Sheets("ADH056").Unprotect
LigneADH056 = LigneADH056 + 1
Sheets("ADH056").Range("A" & LigneADH056) = c.Value
Sheets("ADH056").Range("B" & LigneADH056) = c.Offset(,
1).Value
Sheets("ADH056").Range("C" & LigneADH056) = c.Offset(,
2).Value
Sheets("ADH056").Range("D" & LigneADH056) = c.Offset(,
3).Value
Sheets("ADH056").Range("E" & LigneADH056) = c.Offset(,
4).Value
Sheets("ADH056").Range("F" & LigneADH056) = c.Offset(,
5).Value
Sheets("ADH056").Range("G" & LigneADH056) = c.Offset(,
6).Value
Sheets("ADH056").Protect
Case "ADH057"
Sheets("ADH057").Unprotect
LigneADH057 = LigneADH057 + 1
Sheets("ADH057").Range("A" & LigneADH057) = c.Value
Sheets("ADH057").Range("B" & LigneADH057) = c.Offset(,
1).Value
Sheets("ADH057").Range("C" & LigneADH057) = c.Offset(,
2).Value
Sheets("ADH057").Range("D" & LigneADH057) = c.Offset(,
3).Value
Sheets("ADH057").Range("E" & LigneADH057) = c.Offset(,
4).Value
Sheets("ADH057").Range("F" & LigneADH057) = c.Offset(,
5).Value
Sheets("ADH057").Range("G" & LigneADH057) = c.Offset(,
6).Value
Sheets("ADH057").Protect
Case "ADH058"
Sheets("ADH058").Unprotect
LigneADH058 = LigneADH058 + 1
Sheets("ADH058").Range("A" & LigneADH058) = c.Value
Sheets("ADH058").Range("B" & LigneADH058) = c.Offset(,
1).Value
Sheets("ADH058").Range("C" & LigneADH058) = c.Offset(,
2).Value
Sheets("ADH058").Range("D" & LigneADH058) = c.Offset(,
3).Value
Sheets("ADH058").Range("E" & LigneADH058) = c.Offset(,
4).Value
Sheets("ADH058").Range("F" & LigneADH058) = c.Offset(,
5).Value
Sheets("ADH058").Range("G" & LigneADH058) = c.Offset(,
6).Value
Sheets("ADH058").Protect
Case "ADH059"
Sheets("ADH059").Unprotect
LigneADH059 = LigneADH059 + 1
Sheets("ADH059").Range("A" & LigneADH059) = c.Value
Sheets("ADH059").Range("B" & LigneADH059) = c.Offset(,
1).Value
Sheets("ADH059").Range("C" & LigneADH059) = c.Offset(,
2).Value
Sheets("ADH059").Range("D" & LigneADH059) = c.Offset(,
3).Value
Sheets("ADH059").Range("E" & LigneADH059) = c.Offset(,
4).Value
Sheets("ADH059").Range("F" & LigneADH059) = c.Offset(,
5).Value
Sheets("ADH059").Range("G" & LigneADH059) = c.Offset(,
6).Value
Sheets("ADH059").Protect
Case "ADH060"
Sheets("ADH060").Unprotect
LigneADH060 = LigneADH060 + 1
Sheets("ADH060").Range("A" & LigneADH060) = c.Value
Sheets("ADH060").Range("B" & LigneADH060) = c.Offset(,
1).Value
Sheets("ADH060").Range("C" & LigneADH060) = c.Offset(,
2).Value
Sheets("ADH060").Range("D" & LigneADH060) = c.Offset(,
3).Value
Sheets("ADH060").Range("E" & LigneADH060) = c.Offset(,
4).Value
Sheets("ADH060").Range("F" & LigneADH060) = c.Offset(,
5).Value
Sheets("ADH060").Range("G" & LigneADH060) = c.Offset(,
6).Value
Sheets("ADH060").Protect
Case "ADH061"
Sheets("ADH061").Unprotect
LigneADH061 = LigneADH061 + 1
Sheets("ADH061").Range("A" & LigneADH061) = c.Value
Sheets("ADH061").Range("B" & LigneADH061) = c.Offset(,
1).Value
Sheets("ADH061").Range("C" & LigneADH061) = c.Offset(,
2).Value
Sheets("ADH061").Range("D" & LigneADH061) = c.Offset(,
3).Value
Sheets("ADH061").Range("E" & LigneADH061) = c.Offset(,
4).Value
Sheets("ADH061").Range("F" & LigneADH061) = c.Offset(,
5).Value
Sheets("ADH061").Range("G" & LigneADH061) = c.Offset(,
6).Value
Sheets("ADH061").Protect
Case "ADH062"
Sheets("ADH062").Unprotect
LigneADH062 = LigneADH062 + 1
Sheets("ADH062").Range("A" & LigneADH062) = c.Value
Sheets("ADH062").Range("B" & LigneADH062) = c.Offset(,
1).Value
Sheets("ADH062").Range("C" & LigneADH062) = c.Offset(,
2).Value
Sheets("ADH062").Range("D" & LigneADH062) = c.Offset(,
3).Value
Sheets("ADH062").Range("E" & LigneADH062) = c.Offset(,
4).Value
Sheets("ADH062").Range("F" & LigneADH062) = c.Offset(,
5).Value
Sheets("ADH062").Range("G" & LigneADH062) = c.Offset(,
6).Value
Sheets("ADH062").Protect
Case "ADH063"
Sheets("ADH063").Unprotect
LigneADH063 = LigneADH063 + 1
Sheets("ADH063").Range("A" & LigneADH063) = c.Value
Sheets("ADH063").Range("B" & LigneADH063) = c.Offset(,
1).Value
Sheets("ADH063").Range("C" & LigneADH063) = c.Offset(,
2).Value
Sheets("ADH063").Range("D" & LigneADH063) = c.Offset(,
3).Value
Sheets("ADH063").Range("E" & LigneADH063) = c.Offset(,
4).Value
Sheets("ADH063").Range("F" & LigneADH063) = c.Offset(,
5).Value
Sheets("ADH063").Range("G" & LigneADH063) = c.Offset(,
6).Value
Sheets("ADH063").Protect
Case "ADH064"
Sheets("ADH064").Unprotect
LigneADH064 = LigneADH064 + 1
Sheets("ADH064").Range("A" & LigneADH064) = c.Value
Sheets("ADH064").Range("B" & LigneADH064) = c.Offset(,
1).Value
Sheets("ADH064").Range("C" & LigneADH064) = c.Offset(,
2).Value
Sheets("ADH064").Range("D" & LigneADH064) = c.Offset(,
3).Value
Sheets("ADH064").Range("E" & LigneADH064) = c.Offset(,
4).Value
Sheets("ADH064").Range("F" & LigneADH064) = c.Offset(,
5).Value
Sheets("ADH064").Range("G" & LigneADH064) = c.Offset(,
6).Value
Sheets("ADH064").Protect
Case "ADH065"
Sheets("ADH065").Unprotect
LigneADH065 = LigneADH065 + 1
Sheets("ADH065").Range("A" & LigneADH065) = c.Value
Sheets("ADH065").Range("B" & LigneADH065) = c.Offset(,
1).Value
Sheets("ADH065").Range("C" & LigneADH065) = c.Offset(,
2).Value
Sheets("ADH065").Range("D" & LigneADH065) = c.Offset(,
3).Value
Sheets("ADH065").Range("E" & LigneADH065) = c.Offset(,
4).Value
Sheets("ADH065").Range("F" & LigneADH065) = c.Offset(,
5).Value
Sheets("ADH065").Range("G" & LigneADH065) = c.Offset(,
6).Value
Sheets("ADH065").Protect
End Select
Sheets("Saisie des écritures").Unprotect
c.Offset(, 7) = "X"
End If
Next c
Sheets("Saisie des écritures").Select
ActiveSheet.Unprotect
Range("A2:H60000").Select
Selection.Sort key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2")
_
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=
_
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal
Range("A4").Select
ActiveSheet.Protect
Sheets("INTERFACE").Select
End Sub

"MichDenis" a écrit dans le message de news:

Le problème majeure avec la présentation de ta macro, C'est que les plages
de cellules ne sont pas liées à une feuille particulière comme dans cet
exemple
relevé de ton code :

Set Plage = Range("A2", Range("A65536").End(xlUp))

à quelle feuille appartient Range("a2......)

Si tu appelles ta macro et que la feuille active n'est pas la "bonne", ta
macro
va se planter ... Il est aussi très difficile de réécrire cette macro sans
avoir
les références des feuilles auxquelles appartient les plages de cellules
....


"Philippe" a écrit dans le message de news:
455312af$0$5364$
Bonjoura tous,

Novice en Visual Basic, je souhaiterai votre aide
J' ai un classeur comportant plusieurs feuilles dont la principale "Saisie
des écritures" est ventilé sur plusieurs feuilles de "ADH001" à "ADH150"
J'ai adapté le programme VB suivant


Private Sub CommandButton1_Click()

Dim c As Range, Plage As Range

Dim LigneA As Long, LigneB As Long, LigneC As Long

LigneADH001 = Sheets("ADH001").Range("A65536").End(xlUp).Row

LigneADH002 = Sheets("ADH002").Range("A65536").End(xlUp).Row

Set Plage = Range("A2", Range("A65536").End(xlUp))

For Each c In Plage

If c.Offset(, 7) = "" Then

Select Case c.Offset(, 1)

Case "ADH001"

Sheets("ADH001").Select

ActiveSheet.Unprotect

LigneADH001 = LigneADH001 + 1

Sheets("ADH001").Range("A" & LigneADH001) = c.Value

Sheets("ADH001").Range("B" & LigneADH001) = c.Offset(,
1).Value

Sheets("ADH001").Range("C" & LigneADH001) = c.Offset(,
2).Value

Sheets("ADH001").Range("D" & LigneADH001) = c.Offset(,
3).Value

Sheets("ADH001").Range("E" & LigneADH001) = c.Offset(,
4).Value

Sheets("ADH001").Range("F" & LigneADH001) = c.Offset(,
5).Value

Sheets("ADH001").Range("G" & LigneADH001) = c.Offset(,
6).Value

Sheets("ADH001").Select

ActiveSheet.Protect

Case "ADH002"

Sheets("ADH002").Unprotect

LigneADH002 = LigneADH002 + 1

Sheets("ADH002").Range("A" & LigneADH002) = c.Value

Sheets("ADH002").Range("B" & LigneADH002) = c.Offset(,
1).Value

Sheets("ADH002").Range("C" & LigneADH002) = c.Offset(,
2).Value

Sheets("ADH002").Range("D" & LigneADH002) = c.Offset(,
3).Value

Sheets("ADH002").Range("E" & LigneADH002) = c.Offset(,
4).Value

Sheets("ADH002").Range("F" & LigneADH002) = c.Offset(,
5).Value

Sheets("ADH002").Range("G" & LigneADH002) = c.Offset(,
6).Value

Sheets("ADH002").Protect

End Select

Sheets("Saisie des écritures").Unprotect

c.Offset(, 7) = "X"

End If

Next c

Sheets("Saisie des écritures").Select

ActiveSheet.Unprotect

Range("A2:H60000").Select

Selection.Sort key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2")
_

, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase: > _

False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _

:=xlSortNormal

Range("A4").Select

ActiveSheet.Protect
1 2