Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Amélioré le code

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion creolia
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

creolia

XLDnaute Impliqué
Bonjour a tous je reviens vers vous car j'essaie d'amélioré mon programme de gestion et faire en sorte qu'il soit évolutif je me débrouille un peut mais bon je reste un bleu.

j'utilise donc ce code

Code: 
With Worksheets("FORMATION2")
DernLig = .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row + 1
  TextBoxNoOrdre = Application.WorksheetFunction.Max(.Range("A5:A" & DernLig)) + 1
  .Cells(DernLig, 1) = CLng(TextBoxNoOrdre)
  .Cells(DernLig, 2) = TextBoxNom
  .Cells(DernLig, 3) = TextBoxPrenom
  .Cells(DernLig, 4) = TextBoxService
  
End With

pour une de mes pages sauf que j'en ai 79 donc pour que cela fonctionne j'ai fais dans une macro le meme code mais en 79 fois changeant à chaque fois
With Worksheets("FORMATION2") par With Worksheets("FORMATION3")......ect


cela fonctionne bien sauf que à chaque fois j'ajoute une page à mon projet je doit ajouter ce code pour les différentes formation.


Ma première question est comment faire pour raccourcir ce code une serais de For i =.... je ne sais pas trop en vrais.


ma seconde question
comment pourrais je faire en sorte pour ne plus avoir besoin à chaque fois rajouter cette partis de code c'est a dire de rechercher le nombre de page avec FORMATION


j'ai mis le fichier d'origine c'est une version très légère

merci a tous pour votre aide
 

Pièces jointes

Trier par date Trier par votes
Re : Amélioré le code

Bonjour,

Si je me souviens bien, tu dois pouvoir faire une boucle de ce genre là :

Code: 
Sub BoucleSurFeuille()

For i = 2 To 79
    
    NomFeuille = "FORMATION" & i
    
    With Worksheets(NomFeuille)
        DernLig = .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row + 1
        TextBoxNoOrdre = Application.WorksheetFunction.Max(.Range("A5:A" & DernLig)) + 1
        .Cells(DernLig, 1) = CLng(TextBoxNoOrdre)
        .Cells(DernLig, 2) = TextBoxNom
        .Cells(DernLig, 3) = TextBoxPrenom
        .Cells(DernLig, 4) = TextBoxService
    End With

Next

End Sub
 
Vote positif 0 Vote négatif
Re : Amélioré le code

Bonjour GeoTrouvePas et un grand merci à toi en revanche sa m'oblige de changer 79 par 80 si j'ajoute une page supplémentaire aurais tu une astuce pour que je n'ai plus à changer a chaque fois que j'ajoute une nouvelle formation merci d'avance.
 
Vote positif 0 Vote négatif
Re : Amélioré le code

Bonjour tout le monde

essayer avec

for each toto in worksheets
if left(toto,len("FORMATION"))="FORMATION" then
with toto
'traitement
end with
endif
next toto

comme ca sur le vive sans essayer...désolé
 
Vote positif 0 Vote négatif
Re : Amélioré le code

Bonjour et merci à toi tbft

mais je comprend pas trop ton code ou puis je le placer et résous t'elle mes deux question je sais ont va me dire ta qu'a essayer pour voir mais j'aimerais savoir ou dois je le mettre svp merci
 
Vote positif 0 Vote négatif
Re : Amélioré le code

bonjour
Code: 
for each toto in worksheets
  if left(toto,len("FORMATION"))="FORMATION" then
    with toto

    'traitement
        DernLig = .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row + 1
        TextBoxNoOrdre = Application.WorksheetFunction.Max(.Range("A5:A" & DernLig)) + 1
        .Cells(DernLig, 1) = CLng(TextBoxNoOrdre)
        .Cells(DernLig, 2) = TextBoxNom
        .Cells(DernLig, 3) = TextBoxPrenom
        .Cells(DernLig, 4) = TextBoxService
    end with
  endif
next toto

la boucle for each permet de parcourir toute les feuilles
mais le if de dessous filtre les feuilles dont le nom commence par "FORMATION" (si je ne me suis pas trompé😛)
 
Vote positif 0 Vote négatif
Re : Amélioré le code

Bonjour à tous,

perso m'étonnerait que cela fonctionne sans utilisation de la propriété "name" de la feuille

Code: 
for each toto in worksheets
  if left(toto[COLOR="Red"][B].Name[/B][/COLOR],len("FORMATION"))="FORMATION" then

sinon on peut également coder ainsi :
Code: 
Dim ws As Worksheet
For Each ws In Worksheets
  If ws.Name Like "FORMATION*" Then
  
  End If
Next


bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Amélioré le code

Bonjour pierrot j'ai tenter ta proposition comme ceci



Code: 
Dim ws As Worksheet
For Each ws In Worksheets
  If ws.Name Like "FORMATION*" Then
  

DernLig = .Cells(.[COLOR="RoyalBlue"]Columns[/COLOR](1).Cells.Count, 1).End(xlUp).Row + 1
        TextBoxNoOrdre = Application.WorksheetFunction.Max(.Range("A5:A" & DernLig)) + 1
        .Cells(DernLig, 1) = CLng(TextBoxNoOrdre)
        .Cells(DernLig, 2) = TextBoxNom
        .Cells(DernLig, 3) = TextBoxPrenom
        .Cells(DernLig, 4) = TextBoxService
    End With
  End If
Next


malheureusement j'ai une erreur

reference incorrect ou non qualifier avec colummss surlignée en bleu

je continue mes recherche merci a tous
 
Vote positif 0 Vote négatif
Re : Amélioré le code

Re,

il semble qu'il manque un "with", et pour déterminer la première cellule vide de la colonne A je ferais ainsi :
Code: 
For Each ws In Worksheets
  If ws.Name Like "FORMATION*" Then  
with ws
DernLig = .Range("A65536").End(xlUp).Row + 1
        TextBoxNoOrdre = Application.WorksheetFunction.Max(.Range("A5:A" & DernLig)) + 1
        .Cells(DernLig, 1) = CLng(TextBoxNoOrdre)
        .Cells(DernLig, 2) = TextBoxNom
        .Cells(DernLig, 3) = TextBoxPrenom
        .Cells(DernLig, 4) = TextBoxService
    End With
  End If
Next
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
164
sylvanu
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
458
sylvanu
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
524
sylvanu
S
  • Résolu(e)
Microsoft 365 Boucle pour afficher et masquer des lignes
Réponses
12
Affichages
883
shf
S
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
795
KRUG WOO
K
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
997
jeff1494
M
  • Question Question
Microsoft 365 Modifier code et format textbox
2 3
Réponses
35
Affichages
2 K
Marvin57
M
S
  • Question Question
Microsoft 365 Clavier virtuel: SelectionChange, empêche la répétition
Réponses
3
Affichages
526
Simon 1234
S
Y
  • Question Question
XL 2013 Macro positionnée dans le code d'un feuille
Réponses
10
Affichages
593
Dranreb
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
833
fanch55
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
812
Cheyenne_2021
C
C
  • Question Question
Autres Enregistrer un code barre dans la cellule avant le titre qui est déja enregistré
Réponses
11
Affichages
954
Chatron
C
I
  • Question Question
XL 2016 Modification d'une ligne dans mon code
Réponses
2
Affichages
711
INFINITY100
I
A
  • Question Question
XL 2019 comment eviter la création de ligne sans besoin dans le fichier
Réponses
3
Affichages
543
afoullous
A
A
  • Résolu(e)
XL 2016 Boucle avec tri par date sur onglets
Réponses
6
Affichages
766
Aldonanou
A
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
923
INFINITY100
I
  • Question Question
XL 2016 conservation du format de la date
Réponses
3
Affichages
705
Dranreb
B
  • Question Question
XL 2013 Interdire saisie de doublon et faire synthèse à chaque saisie
Réponses
5
Affichages
723
BIROULIG
B
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
  • Résolu(e)
Microsoft 365 Transposer les données date.
2 3 4
Réponses
48
Affichages
4 K
VBA_dev_Anne_Marie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…