Résultats de la recherche

  1. B

    VBA - Boucle sur evenement bouton click

    Bonjour à tous, J'aimerai savoir s'il est possible de faire une boucle sur Private Sub CommandButton2_Click ? Si, oui avez vous des ressources disponible ou un exemple. Je vous ai mis un exemple de code pour lequels la seule difference est le numero du bouton et la variable i. Merci de votre...
  2. B

    Boucle FOR imbriquées

    Bonjour à tous, j'ai besoin d'aide sur l'imbrixation de 2 boucles qui ne fonctionne pas. Private Sub ComboBox_MAGASIN_Change() '&&&&&&&&&&&&&&&&& INITIALISE LES DONNEES DANS LA COMBOBOX &&&&&&&&&&&&&&&&&&&& Dim u As Integer For u = 2 To 7 Dim lettre As Variant For t = 0 To 5...
  3. B

    Liens ODBC - VBA

    Bonjour à tous, J'ai un classeur excel avec plusieurs onglets qui font appel à des liens ODBC différents vers des bases SYBASE. J'ai mis un bout de code pour qu'a l'ouverture du classeur les connexions externes soient mis à jour automatiquement. Tout cela fonctionne. En revanche, je...
  4. B

    Vba : variable et filtre

    Bonjour à tous, j'aurai besoin de votre aide pour definir des variables sur des filtres en place. Je souhaiterai pouvoir definir le mois et la famille (dans l'exemple c'est BOULANGERIE)à l'aide d'un formulaire. ActiveSheet.ListObjects("Tableau74").Range.AutoFilter Field:=2...
  5. B

    Vba : variable et filtre

    Bonjour à tous, j'aurai besoin d'un coup de main pour utiliser des variables. Code sans variable et fonctionnel ActiveSheet.ListObjects("Tableau74").Range.AutoFilter Field:=2, Operator:= _ xlFilterValues, Criteria2:=Array(1, " 11 / 30 / 2011") Code avec variable et...
  6. B

    Vba : empiler des conditions

    Bonjour à tous, je suis débutant, j'essaie d'empiler des conditions. L'idée est : en fonction d'une valeur de cellule, je souhaiterai afficher ou masquer un nombre de lignes dans deux selection diférentes. - 1ere condition (valeur de P1), selection lignes de 4:11 - 2eme condition (valeur...
  7. B

    Condition et Boucle

    Bonjour à tous, je calcule dans la feuille excel la différence entre une heure debut et de fin afin de verifier que cela ne depasse pas 11 heures soit 0.46. Si c'est le cas, je lance une MSGBOX. Mais malgrès que la condition soit vrai ou fausse, il lance la MsgBox. Merci de votre aide...
  8. B

    Bouvle For...Next

    Bonjour, je suis debut vba et j'aurai besoin de votre aide pour écrire une boucle. Ca fonctionne lorsque je traite une colonne. ci dessous : For i = 4 To 23 If Range("C" & i).Value > 5 Then MsgBox "L'employé " & " " & Range("A" & i) & " est positionné dans le planning plus...
  9. B

    Menu Personnalisé

    Bonjour à tous, J'ai créé une feuille faisant office de menu avec des boutons active X pour naviguer dans les feuilles du classeur. Je souhaiterais obliger la selection de ces boutons en interdisant la selection directe des feuilles. Est ce possible? Merci de votre aide.
  10. B

    RESOLU - Formule NB SI

    Bonjour à tous, je souhaite comparer une valeur à deux plages de cellules et en fonction renvoyer un resultat. J'ai écrit une formule qui fonctionne quand les deux conditions sont remplies mais pas independamment. Valeur à comparer : A4 Plage1 : Semaine 1!D4:D11 Plage2 : Semaine...
  11. B

    RESOLU - Format Conditionnel en vba

    Bonjour à tous, je cherche à ecrire en vba la condition suivante : Si Q2>S2 alors Range(Q2:S2) au "Format de couleur Rouge" Si Q2 <S2 alors Range(Q2:S2) au "Format de couleur Jaune" Si Q2 = S2 alors Range(Q2:S2) au "Format de couleur Verte" ... Si Q3>S3 alors Range(Q3:S3) au "Format...
  12. B

    [RESOLU] - Combobox 2 colonnes et modification

    Bonjour à tous, j'ai reutilisé un formulaire du site. Il y a une combobox qui definit les autres textbox. Il permet ensuite de modifier les différentes valeurs de ces textbox Je souhaite afficher dans la combobox deux colonnes A et B. J'ai trouvé comment faire en modifiant les...
  13. B

    [Résolu] Plage avec For...Each

    Bonjour, le code ci-dessous fonctionne, mais parcours toute ma feuille. Je souhaiterais qu'il le fasse simplement pour les plage B4:B60 et H4:H60. Merci de votre aide Dim bdp As Range For Each bdp In Worksheets("bd_Postes").Range("A2:A30") With Target If .Value = bdp.Value Then...