Bonjour a tous!
j'ai fait ce code (avec un peu d'aide) :-) Mais l=E0 ca bug ! Voici la
partie ou ca bloque :
For i =3D 0 To Sheets(i).ListeFeuilles.ListCount - 1
et voici ce bout dans tout son contexte: (cette macro est executer
depuis un bouton situ=E9 sur une feuille appel=E9e ACCEUIL. (si ca peut
aider)
QU'est ce qui ne vas pas dans mon code? Toutes remarques le concernant
sont bonnes a prendre!!!
MERCI avec un grand M !
Sub resultat()
Dim j, tbl_names, nm, dpts, myrg As Range
Dim ong As Integer
Application.ScreenUpdating =3D False
'------classe ordre alphabetique
'------verifie correspondance nom onglet/fournisseur
For m =3D 3 To Sheets.Count
Sheets(m).Select
Cells(4, 1).Value =3D Sheets(m).Name
For p =3D m To Sheets.Count
If UCase(Sheets(p).Name) < UCase(Sheets(m).Name) Then
Sheets(p).Move Sheets(m)
End If
Next p
Next m
'------verifie si feuille existe d=E9ja
k =3D 1
While Not k =3D Sheets.Count + 1
Sheets(k).Select
If Sheets(k).Name =3D "Recap" Then
''''''' Ca =E7a t'=E9vite de valider par la touche entr=E9e quand la
feuille est supprimm=E9e
Application.SendKeys ("{enter}")
Sheets(k).Delete
''''''je repositionne l'indice de la feuille test=E9e
k =3D k - 1
End If
k =3D k + 1
Wend
'--------ajoute une feuille au classeur actif
Sheets(2).Select
Sheets.Add
Sheets(2).Select
Sheets(2).Name =3D "Recap"
'Validation a mettre en dernier
Sheets(nf).[E4].Copy 'A4 est la cellule de d=E9part
' offset va selectionner une autre cellule a partir de A3
Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
(xlPasteValues)
End If
=20
Next i
[A1].CurrentRegion.Columns.AutoFit
For i = 0 To Sheets.Count - 1 a+ gerard "S3com" a écrit dans le message de news:
Bonjour a tous! j'ai fait ce code (avec un peu d'aide) :-) Mais là ca bug ! Voici la partie ou ca bloque :
For i = 0 To Sheets(i).ListeFeuilles.ListCount - 1
et voici ce bout dans tout son contexte: (cette macro est executer depuis un bouton situé sur une feuille appelée ACCEUIL. (si ca peut aider)
QU'est ce qui ne vas pas dans mon code? Toutes remarques le concernant sont bonnes a prendre!!!
MERCI avec un grand M !
Sub resultat()
Dim j, tbl_names, nm, dpts, myrg As Range Dim ong As Integer
Application.ScreenUpdating = False '------classe ordre alphabetique '------verifie correspondance nom onglet/fournisseur For m = 3 To Sheets.Count
Sheets(m).Select Cells(4, 1).Value = Sheets(m).Name For p = m To Sheets.Count If UCase(Sheets(p).Name) < UCase(Sheets(m).Name) Then Sheets(p).Move Sheets(m) End If Next p Next m
'------verifie si feuille existe déja k = 1 While Not k = Sheets.Count + 1 Sheets(k).Select If Sheets(k).Name = "Recap" Then ''''''' Ca ça t'évite de valider par la touche entrée quand la feuille est supprimmée Application.SendKeys ("{enter}") Sheets(k).Delete ''''''je repositionne l'indice de la feuille testée k = k - 1 End If k = k + 1 Wend
'--------ajoute une feuille au classeur actif Sheets(2).Select Sheets.Add Sheets(2).Select Sheets(2).Name = "Recap"
'Validation a mettre en dernier Sheets(nf).[E4].Copy 'A4 est la cellule de départ ' offset va selectionner une autre cellule a partir de A3 Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
End If
Next i [A1].CurrentRegion.Columns.AutoFit
End Sub
salut
moi je mettrais
For i = 1 To Sheets.Count
ou
For i = 0 To Sheets.Count - 1
a+
gerard
"S3com" <cathy.atienza@scaso.fr> a écrit dans le message de news:
1143209838.075297.18940@v46g2000cwv.googlegroups.com...
Bonjour a tous!
j'ai fait ce code (avec un peu d'aide) :-) Mais là ca bug ! Voici la
partie ou ca bloque :
For i = 0 To Sheets(i).ListeFeuilles.ListCount - 1
et voici ce bout dans tout son contexte: (cette macro est executer
depuis un bouton situé sur une feuille appelée ACCEUIL. (si ca peut
aider)
QU'est ce qui ne vas pas dans mon code? Toutes remarques le concernant
sont bonnes a prendre!!!
MERCI avec un grand M !
Sub resultat()
Dim j, tbl_names, nm, dpts, myrg As Range
Dim ong As Integer
Application.ScreenUpdating = False
'------classe ordre alphabetique
'------verifie correspondance nom onglet/fournisseur
For m = 3 To Sheets.Count
Sheets(m).Select
Cells(4, 1).Value = Sheets(m).Name
For p = m To Sheets.Count
If UCase(Sheets(p).Name) < UCase(Sheets(m).Name) Then
Sheets(p).Move Sheets(m)
End If
Next p
Next m
'------verifie si feuille existe déja
k = 1
While Not k = Sheets.Count + 1
Sheets(k).Select
If Sheets(k).Name = "Recap" Then
''''''' Ca ça t'évite de valider par la touche entrée quand la
feuille est supprimmée
Application.SendKeys ("{enter}")
Sheets(k).Delete
''''''je repositionne l'indice de la feuille testée
k = k - 1
End If
k = k + 1
Wend
'--------ajoute une feuille au classeur actif
Sheets(2).Select
Sheets.Add
Sheets(2).Select
Sheets(2).Name = "Recap"
'Validation a mettre en dernier
Sheets(nf).[E4].Copy 'A4 est la cellule de départ
' offset va selectionner une autre cellule a partir de A3
Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial
(xlPasteValues)
For i = 0 To Sheets.Count - 1 a+ gerard "S3com" a écrit dans le message de news:
Bonjour a tous! j'ai fait ce code (avec un peu d'aide) :-) Mais là ca bug ! Voici la partie ou ca bloque :
For i = 0 To Sheets(i).ListeFeuilles.ListCount - 1
et voici ce bout dans tout son contexte: (cette macro est executer depuis un bouton situé sur une feuille appelée ACCEUIL. (si ca peut aider)
QU'est ce qui ne vas pas dans mon code? Toutes remarques le concernant sont bonnes a prendre!!!
MERCI avec un grand M !
Sub resultat()
Dim j, tbl_names, nm, dpts, myrg As Range Dim ong As Integer
Application.ScreenUpdating = False '------classe ordre alphabetique '------verifie correspondance nom onglet/fournisseur For m = 3 To Sheets.Count
Sheets(m).Select Cells(4, 1).Value = Sheets(m).Name For p = m To Sheets.Count If UCase(Sheets(p).Name) < UCase(Sheets(m).Name) Then Sheets(p).Move Sheets(m) End If Next p Next m
'------verifie si feuille existe déja k = 1 While Not k = Sheets.Count + 1 Sheets(k).Select If Sheets(k).Name = "Recap" Then ''''''' Ca ça t'évite de valider par la touche entrée quand la feuille est supprimmée Application.SendKeys ("{enter}") Sheets(k).Delete ''''''je repositionne l'indice de la feuille testée k = k - 1 End If k = k + 1 Wend
'--------ajoute une feuille au classeur actif Sheets(2).Select Sheets.Add Sheets(2).Select Sheets(2).Name = "Recap"
'Validation a mettre en dernier Sheets(nf).[E4].Copy 'A4 est la cellule de départ ' offset va selectionner une autre cellule a partir de A3 Sheets("recap").[A65000].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)