Contenu récent par bqtr

  1. bqtr

    Afficher des données d'un fichier dans un userfrom

    Re : Afficher des données d'un fichier dans un userfrom Bonjour CATA56, Il te manque les points (.) quand tu fais référence aux cellules puisque tu utilises l'instruction With / end With Private Sub mdrsociete_Change() With Sheets("bdcontact") Textnom =...
  2. bqtr

    Alimentation d une combobox depuis une listview

    Re : Alimentation d une combobox depuis une listview Bonjour belerofon, roro69 Sous réserve d'avoir bien compris, voici un exemple en travaillant sur la listview : Private Sub CobAnnee_Change() Dim i As Integer, j As Integer CobValeur.Clear For i = 1 To ListView1.ListItems.Count If...
  3. bqtr

    information macro

    Re : information macro Bonsoir, Essaye ceci : .../... If Not Intersect(Union(Range("B6:B30"), Range("G10:G15"), Range("G30:G35")), ActiveCell) Is Nothing Then UserForm1.Show .../... A+
  4. bqtr

    Problème remplissage Listbox à colonnes multiples

    Re : Problème remplissage Listbox à colonnes multiples Bonjour, Voici une façon de faire : Private Sub ListBox2_Change() Dim Tablo, Tabcode, AlimLB() Dim k As Integer, y As Integer, x As Integer, z As Integer If ListBox2.ListIndex = -1 Then Exit Sub Tabcode =...
  5. bqtr

    listview click

    Re : listview click Re, Là encore c'est le fonctionnement normal si j'ose dire, les variables "rWs" et "T" ne sont pas remises à zéro donc le code ne génére pas d'erreur. Pour ton problème, je pense qu'en ajoutant un bouton supplémentaire pour lancer la recherche cela le réglerait. (surtout...
  6. bqtr

    listview click

    Re : listview click Re, C'est tout à fait normal au vu de ton code. Quand tu sélectionnes un item dans la combobox (avant d'avoir entré une donnée dans le TB) tu déclenches la procédure "Combobox1_Change". Dans cette dernière tu écris que si le TB1 est vide alors on sort. Mais comme tu sors...
  7. bqtr

    listview click

    Re : listview click Re, Je n'ai pas accés à Cijoint sur le PC où je suis donc : Voici une procédure pour effacer tout les TB. (ceux qui ont la propriété "Tag" non vide, les autres seront ignorés) Dans les macro "TextBox1_change" et "Combobx1_Change" fait appel à cette macro après...
  8. bqtr

    listview click

    Re : listview click Re, Etrange comme comportement, en testant sur ton fichier je n'ai pas ce problème. Si la colonne de la listview est vide, normalement le TB s'efface ce qui me parrait logique au vu du code. Je ne vois pas trop quoi te dire, place un autre exemple de ton fichier avec le...
  9. bqtr

    listview click

    Re : listview click Re, Effectivement il y a des colonnes masquées dans la listview et à ces colonnes ne correspond aucun TB. De plus la propriété "Name" n'aime pas les espaces. Voici une autre proposition : Le seul TB vraiment commun dans la listview quelque soit la feuille sélectionnée et...
  10. bqtr

    listview click

    Re : listview click Bonsoir eneru, vaucluse immo Si je comprends bien essaye ceci : Place le nom de tes colonnes dans la propriété "Name" de chaque TextBox. Ensuite remplace ta procédure "ListView1_Click()" par cell-ci : Private Sub ListView1_Click() For i = 1 To...
  11. bqtr

    Extraire le numéro de chèque en Formule et en VBA

    Re : Extraire le numéro de chèque en Formule et en VBA Bonjour à tous, Un exemple par macro : Sub Nro_Ch() Dim cel As Range For Each cel In Range("G2:G" & Range("G65536").End(xlUp).Row) If InStr(1, cel, "1") > 0 And cel Like "*1###*" Then Range("I" & cel.Row) = Mid(cel, InStr(1, cel...
  12. bqtr

    Nombre de lignes+VBA

    Re : Nombre de lignes+VBA Bonjour Ch3ayba, Par macro voici un exemple (à condition que le nom soit toujours le même). Sub Nblign() Dim Tablo, k As Long, Rlt(), x As Long Tablo = Range("A1:B" & Range("A65536").End(xlUp).Row).Value For k = 1 To UBound(Tablo, 1) If Tablo(k, 2) = "Result"...
  13. bqtr

    accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage par

    Re : accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage Bonsoir Mich1961, Voici un exemple avec un Multipage avec deux pages: Private Sub UserForm_Initialize() Dim Mdp As String Me.MultiPage1.Pages(0).Enabled = False Me.MultiPage1.Pages(1).Enabled = False Mdp...
  14. bqtr

    Supprimer des lignes d'une ListBox

    Re : Supprimer des lignes d'une ListBox Bonjour Pierre , Job75 Une petite variante au cas où le mot "Sans" serait contenu dans un texte : Private Sub CommandButton1_Click() Dim k As Integer For k = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Column(1, k) Like "*Sans*" Then...
  15. bqtr

    Zone de liste dans une barre de menu excel 2007

    Re : Zone de liste dans une barre de menu excel 2007 Bonjour tous le monde, Bonjour klin89, Merci pour le lien, mais même en jouant avec la propriété Width ca ne fonctionne pas avec Excel 2007. Ne perdez plus de temps à chercher une solution, j'ai refait ma barre avec la zone de liste et un...
Haut Bas