Compatibilite PC<->Mac... panique à bord !!!

i0r@eK · 29 Juillet 2005

Salut tout le monde,

voila je viens de finir mon programme vba sur excel 2000 PC qui est en fait destiné à excel Mac vX.

ce matin, tout content je mets mon petit programme sur le Mac et la grsse panique rien ne marche !!! que ce soit mes boutons de lancement de userforms sur les feuilles aux userforms elles-mêmes !!!

est ce que quelqu'un connait la source de mon problème ???

En espérant que quelqu'un pourra m'aider...

merci d'avance pour toutes vos réponses !!!

Hervé · 29 Juillet 2005

re

Meme interrogation que pascal, après test chez moi ca buggue logiquement .

tandis que ceci fonctionne :

Private Sub UserForm_Initialize()
Dim shtDonnees As Worksheet

''PARTIE BUREAU DE CONTROLE
Set shtDonnees = Sheets('shtDonnees')
L1 = shtDonnees.Range('B500').End(xlUp).Row
L2 = shtDonnees.Range('C500').End(xlUp).Row
L3 = shtDonnees.Range('D500').End(xlUp).Row
L4 = shtDonnees.Range('E500').End(xlUp).Row

Tu devrais essayer cette synthaxe et nous dire...

salut

i0r@eK · 29 Juillet 2005

Code:

Private Cel As Range
Private L1 As Integer, L2 As Integer, L3 As Integer, L4 As Integer
Private P1 As Range, P2 As Range, P3 As Range, P4 As Range
Private L11 As Integer, L22 As Integer, L33 As Integer, L44 As Integer
Private P11 As Range, P22 As Range, P33 As Range, P44 As Range
Private L111 As Integer, L222 As Integer, L333 As Integer, L444 As Integer, L555 As Integer
Private P111 As Range, P222 As Range, P333 As Range, P444 As Range, P555 As Range
Private x As Integer

Private Sub UserForm_Initialize()

''PARTIE BUREAU DE CONTROLE

    L1 = shtDonnees.Range('B500').End(xlUp).Row
    L2 = shtDonnees.Range('C500').End(xlUp).Row
    L3 = shtDonnees.Range('D500').End(xlUp).Row
    L4 = shtDonnees.Range('E500').End(xlUp).Row
    
    Set P1 = shtDonnees.Range('B7:B' & L1)
    Set P2 = shtDonnees.Range('C7:C' & L2)
    Set P3 = shtDonnees.Range('D7:D' & L3)
    Set P4 = shtDonnees.Range('E7:E' & L4)
    
    
    frmBuroExt.regNomCont.Clear
    frmBuroExt.regAdresseCont.Clear
    frmBuroExt.regCPCont.Clear
    frmBuroExt.regTelCont.Clear
    
    
    
    ''remplit les trois ComboBoxes sans boublons par la methode AddItem
        'Pour le Bureau de control
            'boucle 1 : sur toutes les cellules Cel de la plage B7:B_fin
    
    For Each Cel In P1
        If frmBuroExt.regNomCont.ListCount > 0 Then
            For x = 0 To frmBuroExt.regNomCont.ListCount - 1
                If Cel.Value = frmBuroExt.regNomCont.List(x) Then
                    GoTo 1
                End If
            Next x
        End If
        
        frmBuroExt.regNomCont.AddItem Cel.Value
        
1

    Next Cel
    
        
    For Each Cel In P2
        If frmBuroExt.regAdresseCont.ListCount > 0 Then
            For x = 0 To frmBuroExt.regAdresseCont.ListCount - 1
                If Cel.Value = frmBuroExt.regAdresseCont.List(x) Then
                    GoTo 2
                End If
            Next x
        End If
        
        frmBuroExt.regAdresseCont.AddItem Cel.Value
        
2

    Next Cel
    
    
    For Each Cel In P3
        If frmBuroExt.regCPCont.ListCount > 0 Then
            For x = 0 To frmBuroExt.regCPCont.ListCount - 1
                If Cel.Value = frmBuroExt.regCPCont.List(x) Then
                    GoTo 3
                End If
            Next x
        End If
        
        frmBuroExt.regCPCont.AddItem Cel.Value
        
3

    Next Cel
    

    For Each Cel In P4
        If frmBuroExt.regTelCont.ListCount > 0 Then
            For x = 0 To frmBuroExt.regTelCont.ListCount - 1
                If Cel.Value = frmBuroExt.regTelCont.List(x) Then
                    GoTo 4
                End If
            Next x
        End If
        
        frmBuroExt.regTelCont.AddItem Cel.Value
        
4

    Next Cel
    
    
    frmBuroExt.regAdresseCont.Enabled = False
    frmBuroExt.regCPCont.Enabled = False
    frmBuroExt.regTelCont.Enabled = False
    
    
    
''PARTIE DU CONTROLE SPS

    L11 = shtDonnees.Range('G500').End(xlUp).Row
    L22 = shtDonnees.Range('H500').End(xlUp).Row
    L33 = shtDonnees.Range('I500').End(xlUp).Row
    L44 = shtDonnees.Range('J500').End(xlUp).Row
    
    Set P11 = shtDonnees.Range('G7:G' & L11)
    Set P22 = shtDonnees.Range('H7:H' & L22)
    Set P33 = shtDonnees.Range('I7:I' & L33)
    Set P44 = shtDonnees.Range('J7:J' & L44)
    
    
    frmBuroExt.regNomSps.Clear
    frmBuroExt.regAdresseSps.Clear
    frmBuroExt.regCPSps.Clear
    frmBuroExt.regTelSps.Clear
    
    
    
    ''remplit les trois ComboBoxes sans boublons par la methode AddItem
        'Pour le Bureau de control
            'boucle 1 : sur toutes les cellules Cel de la plage B7:B_fin
    
    For Each Cel In P11
        If frmBuroExt.regNomSps.ListCount > 0 Then
            For x = 0 To frmBuroExt.regNomSps.ListCount - 1
                If Cel.Value = frmBuroExt.regNomSps.List(x) Then
                    GoTo 5
                End If
            Next x
        End If
        
        frmBuroExt.regNomSps.AddItem Cel.Value
        
5

    Next Cel
    
        
    For Each Cel In P22
        If frmBuroExt.regAdresseSps.ListCount > 0 Then
            For x = 0 To frmBuroExt.regAdresseSps.ListCount - 1
                If Cel.Value = frmBuroExt.regAdresseSps.List(x) Then
                    GoTo 6
                End If
            Next x
        End If
        
        frmBuroExt.regAdresseSps.AddItem Cel.Value
        
6

    Next Cel
    
    
    For Each Cel In P33
        If frmBuroExt.regCPSps.ListCount > 0 Then
            For x = 0 To frmBuroExt.regCPSps.ListCount - 1
                If Cel.Value = frmBuroExt.regCPSps.List(x) Then
                    GoTo 7
                End If
            Next x
        End If
        
        frmBuroExt.regCPSps.AddItem Cel.Value
        
7

    Next Cel
    

    For Each Cel In P44
        If frmBuroExt.regTelSps.ListCount > 0 Then
            For x = 0 To frmBuroExt.regTelSps.ListCount - 1
                If Cel.Value = frmBuroExt.regTelSps.List(x) Then
                    GoTo 8
                End If
            Next x
        End If
        
        frmBuroExt.regTelSps.AddItem Cel.Value
        
8

    Next Cel
    
    
    frmBuroExt.regAdresseSps.Enabled = False
    frmBuroExt.regCPSps.Enabled = False
    frmBuroExt.regTelSps.Enabled = False
    
    

''PARTIE DU BUREAU D'ETUDE

    L111 = shtDonnees.Range('M500').End(xlUp).Row
    L222 = shtDonnees.Range('N500').End(xlUp).Row
    L333 = shtDonnees.Range('O500').End(xlUp).Row
    L444 = shtDonnees.Range('P500').End(xlUp).Row
    L555 = shtDonnees.Range('L500').End(xlUp).Row
    
    Set P111 = shtDonnees.Range('M7:M' & L111)
    Set P222 = shtDonnees.Range('N7:N' & L222)
    Set P333 = shtDonnees.Range('O7:O' & L333)
    Set P444 = shtDonnees.Range('P7:P' & L444)
    Set P555 = shtDonnees.Range('L7:L' & L555)
    
    
    frmBuroExt.regNomEtude.Clear
    frmBuroExt.regAdresseEtude.Clear
    frmBuroExt.regCPEtude.Clear
    frmBuroExt.regTelEtude.Clear
    frmBuroExt.regTypeBuroExt.Clear
    
    
    
    ''remplit les trois ComboBoxes sans boublons par la methode AddItem
        'Pour le Bureau de control
            'boucle 1 : sur toutes les cellules Cel de la plage B7:B_fin
    
    For Each Cel In P111
        If frmBuroExt.regNomEtude.ListCount > 0 Then
            For x = 0 To frmBuroExt.regNomEtude.ListCount - 1
                If Cel.Value = frmBuroExt.regNomEtude.List(x) Then
                    GoTo 9
                End If
            Next x
        End If
        
        frmBuroExt.regNomEtude.AddItem Cel.Value
        
9

    Next Cel
    
        
    For Each Cel In P222
        If frmBuroExt.regAdresseEtude.ListCount > 0 Then
            For x = 0 To frmBuroExt.regAdresseEtude.ListCount - 1
                If Cel.Value = frmBuroExt.regAdresseEtude.List(x) Then
                    GoTo 10
                End If
            Next x
        End If
        
        frmBuroExt.regAdresseEtude.AddItem Cel.Value
        
10

    Next Cel
    
    
    For Each Cel In P333
        If frmBuroExt.regCPSps.ListCount > 0 Then
            For x = 0 To frmBuroExt.regCPEtude.ListCount - 1
                If Cel.Value = frmBuroExt.regCPEtude.List(x) Then
                    GoTo 11
                End If
            Next x
        End If
        
        frmBuroExt.regCPEtude.AddItem Cel.Value
        
11

    Next Cel
    

    For Each Cel In P444
        If frmBuroExt.regTelEtude.ListCount > 0 Then
            For x = 0 To frmBuroExt.regTelEtude.ListCount - 1
                If Cel.Value = frmBuroExt.regTelEtude.List(x) Then
                    GoTo 12
                End If
            Next x
        End If
        
        frmBuroExt.regTelEtude.AddItem Cel.Value
        
12

    Next Cel
    
    For Each Cel In P555
        If frmBuroExt.regTypeBuroExt.ListCount > 0 Then
            For x = 0 To frmBuroExt.regTypeBuroExt.ListCount - 1
                If Cel.Value = frmBuroExt.regTypeBuroExt.List(x) Then
                    GoTo 13
                End If
            Next x
        End If
        
        frmBuroExt.regTypeBuroExt.AddItem Cel.Value
        
13

    Next Cel
    
    frmBuroExt.regNomEtude.Enabled = False
    frmBuroExt.regAdresseEtude.Enabled = False
    frmBuroExt.regCPEtude.Enabled = False
    frmBuroExt.regTelEtude.Enabled = False

    

End Sub


Public Sub btnSuivantBuroExt_Click()
    
    shtPanneau.Activate

'' mise en page et entrée des bureaux de controles
    
    
 
    shtPanneau.Range(Cells(35, 2), Cells(35, 4)).Select
    With Selection.Font
        .Name = 'Tahoma'
        .Size = 12
        .Bold = True
    End With
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With
    
    shtPanneau.Range('A35').Select
    With Selection.Font
        .Name = 'Tahoma'
        .Size = 12
        .Bold = True
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .IndentLevel = 2
    End With
    
    shtPanneau.Range(Cells(36, 2), Cells(38, 4)).Select
    With Selection.Font
        .Name = 'Tahoma'
        .Size = 10
        .Bold = False
    End With
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With
  
  
    
    shtPanneau.Range('B35').Value _
        = frmBuroExt.regNomCont.Value
    shtPanneau.Range('B36').Value _
        = frmBuroExt.regAdresseCont.Value
    shtPanneau.Range('B37').Value _
        = frmBuroExt.regCPCont.Value
    shtPanneau.Range('B38').Value _
        = frmBuroExt.regTelCont.Value
        


'' mise en page et entrée des coordinateurs sps
    
    
    shtPanneau.Select
    shtPanneau.Range(Cells(43, 2), Cells(43, 4)).Select
    With Selection.Font
        .Name = 'Tahoma'
        .Size = 12
        .Bold = True
    End With
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With
                                    
    shtPanneau.Range(Cells(44, 2), Cells(46, 4)).Select
    With Selection.Font
        .Name = 'Tahoma'
        .Size = 10
        .Bold = False
    End With
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With
    
    
    shtPanneau.Range('B43').Value _
        = frmBuroExt.regNomSps.Value
    shtPanneau.Range('B44').Value _
        = frmBuroExt.regAdresseSps.Value
    shtPanneau.Range('B45').Value _
        = frmBuroExt.regCPSps.Value
    shtPanneau.Range('B46').Value _
        = frmBuroExt.regTelSps.Value
        
        

'' mise en page et entrée des bureaux d'études
    
    
    shtPanneau.Select
    shtPanneau.Range(Cells(51, 1), Cells(51, 4)).Select
    With Selection.Font
        .Name = 'Tahoma'
        .Size = 12
        .Bold = True
    End With
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With
                                    
    shtPanneau.Range('A51').Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .IndentLevel = 2
    End With
        
    shtPanneau.Range(Cells(52, 2), Cells(55, 4)).Select
    With Selection.Font
        .Name = 'Tahoma'
        .Size = 10
        .Bold = False
    End With
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With
    
    shtPanneau.Range('A51').Value _
        = frmBuroExt.regTypeBuroExt.Value
    shtPanneau.Range('B52').Value _
        = frmBuroExt.regNomEtude.Value
    shtPanneau.Range('B53').Value _
        = frmBuroExt.regAdresseEtude.Value
    shtPanneau.Range('B54').Value _
        = frmBuroExt.regCPEtude.Value
    shtPanneau.Range('B55').Value _
        = frmBuroExt.regTelEtude.Value




        
    frmBuroExt.Hide
    frmInfos.Show
    

End Sub

Public Sub btnCancelBuroExt_Click()

    
    
    shtPlanning.Select
    shtPlanning.Range('A1').Select
    shtCR.Select
    shtCR.Range('A1').Select
    shtPanneau.Select
    shtPanneau.Range('A1').Select
    
    shtAcceuil.Select
    
    frmBuroExt.Hide
    
End Sub

Public Sub regNomCont_Change()


    frmBuroExt.regAdresseCont.Clear
    frmBuroExt.regCPCont.Clear
    frmBuroExt.regTelCont.Clear
    
    
    frmBuroExt.regAdresseCont.Enabled = True
    frmBuroExt.regCPCont.Enabled = True
    frmBuroExt.regTelCont.Enabled = True
    
    '
    
    For Each Cel In P1 '
        If Cel.Value = frmBuroExt.regNomCont.Value Then
            If frmBuroExt.regAdresseCont.ListCount > 0 Then '
                For x = 0 To frmBuroExt.regAdresseCont.ListCount - 1
                    If Cel.Offset(0, 1).Value = frmBuroExt.regAdresseCont.List(x) Then
                        GoTo 14
                    End If
                Next x
            End If
            
            frmBuroExt.regAdresseCont.AddItem Cel.Offset(0, 1).Value
        

14
            
            If frmBuroExt.regCPCont.ListCount > 0 Then
                For x = 0 To frmBuroExt.regCPCont.ListCount - 1
                    If CStr(Cel.Offset(0, 2).Value) = CStr(frmBuroExt.regCPCont.List(x)) Then
                        GoTo 15
                    End If
                Next x
            End If
            
            frmBuroExt.regCPCont.AddItem Cel.Offset(0, 2).Value
            
15

            If frmBuroExt.regTelCont.ListCount > 0 Then
                For x = 0 To frmBuroExt.regTelCont.ListCount - 1
                    If CStr(Cel.Offset(0, 3).Value) = CStr(frmBuroExt.regTelCont.List(x)) Then
                        GoTo 16
                    End If
                Next x
            End If
            
            frmBuroExt.regTelCont.AddItem Cel.Offset(0, 3).Value
            
        End If

16
    
    
    Next Cel
    
        
End Sub


Public Sub regNomSps_Change()



    frmBuroExt.regAdresseSps.Clear
    frmBuroExt.regCPSps.Clear
    frmBuroExt.regTelSps.Clear

    
    frmBuroExt.regAdresseSps.Enabled = True
    frmBuroExt.regCPSps.Enabled = True
    frmBuroExt.regTelSps.Enabled = True
    

    
    For Each Cel In P11
        If Cel.Value = frmBuroExt.regNomSps.Value Then
            If frmBuroExt.regAdresseSps.ListCount > 0 Then '
                For x = 0 To frmBuroExt.regAdresseSps.ListCount - 1
                    If Cel.Offset(0, 1).Value = frmBuroExt.regAdresseSps.List(x) Then
                        GoTo 17
                    End If
                Next x
            End If
            
            frmBuroExt.regAdresseSps.AddItem Cel.Offset(0, 1).Value
        

17
            
            If frmBuroExt.regCPSps.ListCount > 0 Then
                For x = 0 To frmBuroExt.regCPSps.ListCount - 1
                    If CStr(Cel.Offset(0, 2).Value) = CStr(frmBuroExt.regCPSps.List(x)) Then
                        GoTo 18
                    End If
                Next x
            End If
            
            frmBuroExt.regCPSps.AddItem Cel.Offset(0, 2).Value
            
18

            If frmBuroExt.regTelSps.ListCount > 0 Then
                For x = 0 To frmBuroExt.regTelSps.ListCount - 1
                    If CStr(Cel.Offset(0, 3).Value) = CStr(frmBuroExt.regTelSps.List(x)) Then
                        GoTo 19
                    End If
                Next x
            End If
            
            frmBuroExt.regTelSps.AddItem Cel.Offset(0, 3).Value
            
        End If

19
    
    
    Next Cel
    
        
End Sub

Public Sub regTypeBuroExt_Change()


    frmBuroExt.regNomEtude.Clear
    frmBuroExt.regAdresseEtude.Clear
    frmBuroExt.regCPEtude.Clear
    frmBuroExt.regTelEtude.Clear


    frmBuroExt.regNomEtude.Enabled = True
    frmBuroExt.regAdresseEtude.Enabled = True
    frmBuroExt.regCPEtude.Enabled = True
    frmBuroExt.regTelEtude.Enabled = True
    
    
    For Each Cel In P555
        If Cel.Value = frmBuroExt.regTypeBuroExt.Value Then
            If frmBuroExt.regNomEtude.ListCount > 0 Then '
                For x = 0 To frmBuroExt.regNomEtude.ListCount - 1
                    If Cel.Offset(0, 1).Value = frmBuroExt.regNomEtude.List(x) Then
                        GoTo 20
                    End If
                Next x
            End If
            
            frmBuroExt.regNomEtude.AddItem Cel.Offset(0, 1).Value
        

20
        
        
            If frmBuroExt.regAdresseEtude.ListCount > 0 Then '
                For x = 0 To frmBuroExt.regAdresseEtude.ListCount - 1
                    If Cel.Offset(0, 2).Value = frmBuroExt.regAdresseEtude.List(x) Then
                        GoTo 21
                    End If
                Next x
            End If
            
            frmBuroExt.regAdresseEtude.AddItem Cel.Offset(0, 2).Value
        

21
            
            If frmBuroExt.regCPEtude.ListCount > 0 Then
                For x = 0 To frmBuroExt.regCPEtude.ListCount - 1
                    If CStr(Cel.Offset(0, 3).Value) = CStr(frmBuroExt.regCPEtude.List(x)) Then
                        GoTo 22
                    End If
                Next x
            End If
            
            frmBuroExt.regCPEtude.AddItem Cel.Offset(0, 3).Value
            
22

            If frmBuroExt.regTelEtude.ListCount > 0 Then
                For x = 0 To frmBuroExt.regTelEtude.ListCount - 1
                    If CStr(Cel.Offset(0, 4).Value) = CStr(frmBuroExt.regTelEtude.List(x)) Then
                        GoTo 23
                    End If
                Next x
            End If
            
            frmBuroExt.regTelEtude.AddItem Cel.Offset(0, 4).Value
            
        End If

23
    
    
    Next Cel
    
        
End Sub

i0r@eK · 29 Juillet 2005

ps : voici comment j'ai renommé mes feuilles. cf fichier joint
ps 2 : je voulais vous l'envoyer complet donc j'ai supprimer des feuilles... mais ca reste trop gros donc c'est normal s'il y a des feuilles appellées dans le code qui n'apparaissent pas...

je tien à vous remercie de passer autant de temps avec mon problème MERCI BEAUCOUP !!! [file name=planning_20050729154544.zip size=4805]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/planning_20050729154544.zip[/file]

PascalXLD · 29 Juillet 2005

Je suis peut-être bouché mais si tu as que cela comme code je me demande comment il connait la valeur de shtDonnees ??? :sick:

i0r@eK · 29 Juillet 2005

euh... qu'est ce que c'est ???

i0r@eK · 29 Juillet 2005

la pièce jointe ne vous aide pas ???

i0r@eK · 29 Juillet 2005

non c'est juste un nom de feuille

PascalXLD · 29 Juillet 2005

Franchement ta pièce jointe c'est un morceau de copie d'écran illisible donc cela perso ne m'aide pas beaucoup

J'ai juste vu que tu n'avais pas de module donc pas de variables public

i0r@eK · 29 Juillet 2005

bah pour la valeur de shtdonnees je ne saispas pour moi ça ne plantait sur mon pc donc je ne voyais pas l'intéret de lui en donné...

PascalXLD · 29 Juillet 2005

Re

essaies en mettant

L1 = worksheets('shtDonnees').Range('B500').End(xlUp).Row

juste sur la première ligne

si ça plante à la deuxième c'est qu'un problème se trouve bien ici

Hervé · 29 Juillet 2005

re re re re re

Pascal, je crois avoir compris pour la feuille, IOr@ek (pas facile ton pseudo), renomme la feuille OBJET en VBA il fait pas référence à la feuille (sheet) mais à l'objet feuille. suis je clair ????

en somme dans sa fenêtre projet de VBA il à shtdonnées(shtdonnées) au lieu de feuil1(shtdonnées) ce qui lui permet d'utiliser la synthaxe shtdonnées.range......

et ceci doit être imcompatible avec MAC , non ???

salut

i0r@eK · 29 Juillet 2005

ecoute moi je veux bien tout t'envoyer je ne demande qu'a te faciliter les choses mais je ne lui ai jamais rien indiqué sur shtdonnees.
en fait quand tu es dans la page vba de excel j'ai séléctionné la feuille de ma base de données et dans la case (Name) j'ai juste écrit shtdonnees...

voila c'est la seule chose que j'ai faite.

en espérant vraimment que ca va pouvoir t'aider

Guillaume

PascalXLD · 29 Juillet 2005

OK Hervé

Mais ça ça passe sous Mac ??

J'en sais rien

dans ce cas il faudrait essayait avec

L1 = worksheets('Donnees').Range('B500').End(xlUp).Row

PascalXLD · 29 Juillet 2005

re

i0r@ak cela ne sert pas à grand chose que tu mel'envoies si tu dis que ça tourne sur pc vu que je n'ai pas de MAC je ne pourrais rien faire de plus que de dire çamarche sur PC

Si Dan ou jean-Marie passent dans le coin peut-être

_Thierry · 29 Juillet 2005

Bonjour à tous

Moi j'ai touché une fois un mac, il a cramé ! lol

Pour votre shtDonnees.Range('A1') etc

Le shtDonnees n'est pas une variable les gars, c'est le nom de l'Object Feuille CodeName (Pas le Nom d'Onglet) c'est tout, si vous regardez de près les programmes de Ti il fait toujours ainsi 'F1.Range' etc etc

Il suffit de d'homogénéisé ces CodeNames avec les Noms de Feuilles avec par exemple un truc comme ceci qu'on m'avait demandé sur le Forum 1st Génération

Option Explicit

Sub RenameVBComponentsSheets()
Dim WS As Worksheet

    With ThisWorkbook
   
        For Each WS In .Sheets
            .VBProject.VBComponents(WS.CodeName).Name = WS.Name
        Next
   
    End With
End Sub

'Attention ceci implique que tu aies des nom d'onglets de feuilles qui soient compatibles sinon çà ne passera pas.

Bon Aprèm et Week End
[ol]@+Thierry[/ol]

J - 7 = U 2

Effectuez une recherche sur Excel Downloads...

Compatibilite PC<->Mac... panique à bord !!!

i0r@eK

XLDnaute Nouveau

Hervé

XLDnaute Barbatruc

i0r@eK

XLDnaute Nouveau

i0r@eK

XLDnaute Nouveau

Pièces jointes

PascalXLD

XLDnaute Barbatruc

i0r@eK

XLDnaute Nouveau

i0r@eK

XLDnaute Nouveau

i0r@eK

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

i0r@eK

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

i0r@eK

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums