Programmation VBA

Résolu
jacksa3ada -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai un classeur Excel de plusieurs feuilles, pour les besoins d'une application j'ai réalisé une macro pour la selection de toutes les feuilles

voici la macro: 
'''''''''''''''''''selection des feuilles'''''''''''''''''''''

Dim I As Byte 'déclare la variable I (Incrément)
Dim OS As Variant 'déclare la variable OS (OngletS)

ReDim OS(1 To Sheets.Count) 'redimensionne le tableau OS (de 1 au nombre d'onglets dans le classeur)
For I = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
    OS(I) = Sheets(I).Name 'alimente le tableau OS avec le nom de l'onglet de la boucle
Next I 'prochain onglet de la boucle
Sheets(OS).Select 'sélectionne les onglets du tableau OS



comment faire pour que la macro ne selectionne pas les feuilles "Source" , "calcul" et "tableaux"

merci

Configuration: Windows / Chrome 74.0.3729.169

9 réponses

Réponse 1 / 9
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

A l'avenir, merci de placer tes questions VBA dans le forum VBA (j'ai déplacé celle-ci).
Merci également d'utiliser les BALISES DE CODE.
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code


Et pour répondre à ta question...... en faisant des IF 
If Sheets(I).Name <> "Source" AND Sheets(I).Name<>"calcul" AND Sheets(I).Name<>"tableaux" Then
  '...
  '... ici ton code


  EndIf

0
Réponse 2 / 9
jacksa3ada
 
bonjour
merci pour ta reponse

j'ai fais ça !
et ça bloque
je ne suis qu'un débutant, je sais ce qui ne va pas 


'''''''''''''''''''selection des feuilles'''''''''''''''''''''

Dim i As Byte 'déclare la variable I (Incrément)
Dim OS As Variant 'déclare la variable OS (OngletS)
If Sheets(i).Name <> "Source" And Sheets(i).Name(i) <> "Modele" Then

ReDim OS(1 To Sheets.Count) 'redimensionne le tableau OS (de 1 au nombre d'onglets dans le classeur)

For i = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
    OS(i) = Sheets(i).Name 'alimente le tableau OS avec le nom de l'onglet de la boucle
Next i 'prochain onglet de la boucle
Sheets(OS).Select 'sélectionne les onglets du tableau OS

End If
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Déjà... OU SONT LES BALISES DE CODE ?????!!!!!

Ensuite... c'est dans la boucle qu il faut placer le code du if..... pas avant..
0
Réponse 3 / 9
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour à tous les deux

Quelque chose comme ça 
'''''''''''''''''''selection des feuilles'''''''''''''''''''''
Dim i As Byte 'déclare la variable I (Incrément)
Dim OS() 'déclare la variable OS (OngletS)
ReDim OS(1 To Sheets.Count) 'redimensionne le tableau OS (de 1 au nombre d'onglets dans le classeur)
For i = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
  If Sheets(i).Name <> "Source" And Sheets(i).Name <> "Modele" Then
    OS(i) = Sheets(i).Name 'alimente le tableau OS avec le nom de l'onglet de la boucle
  End If
Next i 'prochain onglet de la boucle


RQ. celle là Sheets(OS).Select 'sélectionne les onglets du tableau OS me parait douteuse !

Cdlmnt
0
Réponse 4 / 9
jacksa3ada
 
bonjour
j 'ai fais ça :
'
''''''''''''''''''selection des feuilles'''''''''''''''''''''
Sub Selection ()
Dim i As Byte 'déclare la variable I (Incrément)
Dim OS() 'déclare la variable OS (OngletS)
ReDim OS(1 To Sheets.Count) 'redimensionne le tableau OS (de 1 au nombre d'onglets dans le classeur)
For i = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
  If Sheets(i).Name <> "Source" And Sheets(i).Name <> "Modele" Then
    OS(i) = Sheets(i).Name 'alimente le tableau OS avec le nom de l'onglet de la boucle
  End If
Next i 'prochain onglet de la boucle
End Sub



cela ne fonctionne pas!!!!

rien n'est selectionné !!

je comprend pas pkoi
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Balises, balises, ah mes belles balises de code……..


Que voulez-vous dire par:

rien n'est selectionné !!
Parce que dans le code, y a rein de selectionne!!!!!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 9
jacksa3ada
 
bonjour

je veux selectionner toutes les feuilles autre que la feuille "source" et la feuille "Modele" .

merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

je veux selectionner toutes les feuilles autre
Certes, certes mais je repete que dans le code y a pas de selection mais: 
OS(i) = Sheets(i).Name 'alimente le tableau OS avec le nom de l'onglet de la boucle
0
Réponse 6 / 9
jacksa3ada
 
Re,

il faut rajouter qelque chose pour selectionner

je suis un débutant



merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re, 

''''''''''''''''''selection des feuilles'''''''''''''''''''''
Sub Selection()
    Dim i As Long 'd?clare la variable I (Incr?ment)
    Dim OS() 'd?clare la variable OS (OngletS)
    ReDim OS(1 To Sheets.Count) 'redimensionne le tableau OS (de 1 au nombre d'onglets dans le classeur)
    For i = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
        If Sheets(i).Name <> "Source" And Sheets(i).Name <> "Modele" Then
            OS(i) = Sheets(i).Name 'alimente le tableau OS avec le nom de l'onglet de la boucle
        End If
    Next i 'prochain onglet de la boucle
    Sheets(OS).Select          'selection des onglets
End Sub
0
Réponse 7 / 9
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Essaies ceci pour mettre 1 en A1 des feuilles selectionnées 

Sub ok()
'''''''''''''''''''selection des feuilles'''''''''''''''''''''
Dim i As Byte 'déclare la variable I (Incrément)
Dim n As Long ' nombre de feuilles dans OS
Dim OS() 'déclare la variable OS (OngletS)
n = -1
For i = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
  If Sheets(i).Name <> "Source" And Sheets(i).Name <> "Modele" Then
    n = n + 1
    ReDim Preserve OS(0 To n)
    OS(n) = Sheets(i).Name 'alimente le tableau OS avec le nom de l'onglet de la boucle
  End If
Next i 'prochain onglet de la boucle
Sheets(OS).Select 'sélectionne les onglets du tableau OS et mettre 1 en A1
Range("A1").Select
ActiveCell.Value = 1
End Sub

CDlmnt
0
Réponse 8 / 9
jacksa3ada
 
Re,
ça bugue sur la derniere ligne

elle ne selectionne pas les feuilles (autre que Source et Modele)
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Chez moi, ça fonctionne
https://mon-partage.fr/f/X4Iw3TdG/
0
Réponse 9 / 9
jacksa3ada
 
ouii ça marche
merci bcp mon frere
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
De rien

Bonne continuation et bonne soirée

cdlmt
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse