VBA Rechercher

Le 29/10/2017 à 11:23

archer a écrit :

bonjour

et ton édition fonctionne ????

et voila un peux de code

Sub SupLigne()
' Efface Ligne NOMBRE DE JOURS RESTANT
F02.Select
   For L = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
      If Cells(L, 10).Value = 0 Then
         Rows(L).Delete
      End If
   Next
End Sub

Sub Tri()
F02.Select
   Range("A2:V" & Range("E" & Rows.Count).End(xlUp).Row).Sort Key1:=Range("E2"), Order1:=xlAscending
End Sub

A+

Maurice

Merci, ça fonctionne et c'es vraiment super. Par contre j'ai un beug au niveau de copier et remplacer dont je te mets la capture

d'écran en pièce jointe.

Après quelque modification pour le pfd, cela marche et te renvois mon fichier pour que tu puisses voir.

Je continue a poursuivre pour les autres code (pas évident) mais je m'accroche.

5adhesion-3-2.xlsm (368.36 Ko)

Le 29/10/2017 à 11:56

Bonjour

ses bien compliquer

si j'ais bien compris voila

Sub Copier_Remplace()
F02.Select
Application.EnableEvents = False
   For L = 2 To Cells(Rows.Count, 5).End(xlUp).Row
      If Cells(L, 17).Value = 50 Then
         Cells(L, 16).Value = "X"
      End If
   Next
Application.EnableEvents = True
End Sub

bon je vais me faire a manger

A+

Maurice

Le 29/10/2017 à 12:01

archer a écrit :
Bonjour
ses bien compliquer
si j'ais bien compris voila
Sub Copier_Remplace()
F02.Select
Application.EnableEvents = False
   For L = 2 To Cells(Rows.Count, 5).End(xlUp).Row
      If Cells(L, 17).Value = 50 Then
         Cells(L, 16).Value = "X"
      End If
   Next
Application.EnableEvents = True
End Sub
bon je vais me faire a manger
A+
Maurice

Merci

bon appetit

Le 29/10/2017 à 12:37

sandrine13 a écrit :
archer a écrit :
Bonjour
ses bien compliquer
si j'ais bien compris voila
Sub Copier_Remplace()
F02.Select
Application.EnableEvents = False
   For L = 2 To Cells(Rows.Count, 5).End(xlUp).Row
      If Cells(L, 17).Value = 50 Then
         Cells(L, 16).Value = "X"
      End If
   Next
Application.EnableEvents = True
End Sub
bon je vais me faire a manger
A+
Maurice
Merci
bon appetit

Trop contente grâce à ton code, j'ai réussi a faire les autres, merci, merci.

Voilà, mon projet est presque terminé, il ne reste plus qu'a savoir, si dans l'userform U_Liste le nombre d'enfant présent par structure apparaît lors du choix du combobox sur l'établissement.

Et là, suis perdu et te sollicite encore.

4adhesion-3-2.xlsm (372.62 Ko)

Le 29/10/2017 à 13:26

Bonjour Sandrine,

Encore Bravo ... pour ta progression ... !!!

Puisque tu avances vite dans les macros ... il faut apprendre à utiliser Option Explicit ...

Cela te permettra, de retrouver très vite ... les erreurs de code ...

Ci-joint ton fichier corrigé ...

Concernant ta question sur la Combobox de la UserForm U_Liste ... est-ce, pour toi ...elle fonctionne correctement ou pas ...???

A mes yeux ... cela semble correct ...

10adhesion-3-2.xlsm (373.91 Ko)

Le 29/10/2017 à 13:36

James007 a écrit :
Bonjour Sandrine,
Encore Bravo ... pour ta progression ... !!!
Puisque tu avances vite dans les macros ... il faut apprendre à utiliser Option Explicit ...
Cela te permettra, de retrouver très vite ... les erreurs de code ...
Ci-joint ton fichier corrigé ...
Concernant ta question sur la Combobox de la UserForm U_Liste ... est-ce-qu'elle fonctionne correctement ou pas ...???

Bonjour James,

Ou, je peux trouver des explications pour Option Explicit.

Sinon, j'arrive presque à la fin de mon projet , il ne reste plus qu'a connaitre le nombre d'enfant présent qui apparaît en fonction du choix du combobox et la macro colorer dont je n'arrive pas à faire fonctionner.

Je te remercie pour tout tes conseils et de ton aide.

Le 29/10/2017 à 13:41

Re,

Un chose aprés l'autre ...

Le nombre d'enfants ... veux-tu un décompte des lignes ... si oui .. où faut-il qu'il apparaisse ...???

Le 29/10/2017 à 14:08

James007 a écrit :
Re,
Un chose aprés l'autre ...
Le nombre d'enfants ... veux-tu un décompte des lignes ... si oui .. où faut-il qu'il apparaisse ...???

dans l'userform U-liste. Ce n'est pas un comptage des lignes mais juste savoir combien d'enfants sont présent ( jours restant >0)par structure et général, lorsque je renseigne mon conbobox sur le choix de l'établissement.

Juste que signifie option explicit et son rôle ?

Le 29/10/2017 à 14:16

Re,

L'instruction Option Explicit est utilisée au niveau module pour imposer la déclaration explicite de toutes les variables de ce module. Cette instruction doit apparaître tout en haut dans le module, avant toute procédure.

Lorsque cette instruction est utilisée, un message d'erreur identifie toute variable non définie ou mal orthographiée ...

Indispensable pour le Debug ... c-à-dire : trouver les erreurs ...

Concernant ton calcul .... veux-tu que le résultat apparaisse ... et si oui ... à quel endroit ...???

Edit : A la page suivante ...NE PAS TELECHARGER le Fichier de Archer qui plante votre EXCEL ... !!!

Le 29/10/2017 à 14:22

James007 a écrit :
Re,
L'instruction Option Explicit est utilisée au niveau module pour imposer la déclaration explicite de toutes les variables de ce module. Cette instruction doit apparaître tout en haut dans le module, avant toute procédure.
Lorsque cette instruction est utilisée, un message d'erreur identifie toute variable non définie ou mal orthographiée.
Concernant ton calcul .... veux-tu que le résultat apparaisse ... et si oui ... à quel endroit ...???

Merci pour ses informations, j'ai compris et maintenant, je mettrai option explicit a chaque fois que j'utiliserai un nouveau module.

Pour le résultat c'est dans l'userform U_liste

Le 29/10/2017 à 14:32