Contenu récent par excalibur

  1. excalibur

    Fonction Si en VBA

    Re : Fonction Si en VBA bonjour tous . ou simplement If [b1] <> "" Then [A1] = 0
  2. excalibur

    Supprimer les colonnes sous condition dnas l'ensemble des feuilles

    Re : Supprimer les colonnes sous condition dnas l'ensemble des feuilles bonjour tous. A mon avis cela va pas être simple a concevoir quelques pistes crée un clone de ton fichier ou cree une feuille temporaire Sheets.Add.Name = "temp" puis copier toutes les colonnes concernées avant d'être...
  3. excalibur

    Rajouter du Text dans une cellule

    Re : Rajouter du Text dans une cellule bonjour tous une macro Sub test() Dim c As Range Application.ScreenUpdating = False For Each c In Range("b20:b5000") If c <> "" Then c = "* " & c & " *" Next End Sub
  4. excalibur

    Créer une liste avec une plage de cellules.

    Re : Créer une liste avec une plage de cellules. bonjour hulk code Private Sub UserForm_Initialize() Dim c As Range, i As Long, j As Long, temp As String For Each c In Range("A1:f" & Range("A65536").End(xlUp).Row) ' a adapter cbx1 = c If cbx1.ListIndex = -1 And cbx1 <> "" Then cbx1.AddItem c...
  5. excalibur

    Remplissage conditionnel des cellules

    Re : Remplissage conditionnel des cellules bonjour Ptreesong suppose colonne a Sub Macro1() Dim v As Variant, c As Range For Each c In Range("a1", [a65000].End(xlUp)) If c = "" Then c = v Else: v = c Next End Sub
  6. excalibur

    bouton supprimer

    Re : bouton supprimer bonjour le fil le forum une autre variante Private Sub CommandButton5_Click() Dim c As Range, i As Byte, msg As Integer msg = MsgBox("Vous allez supprimer :" & ComboBox1.Value & "", vbYesNo + vbInformation, "ATTENTION") If msg = vbYes Then Sheets("feuil2").Activate...
  7. excalibur

    [vba excel] nettoyer un userform avec des optionbutton

    Re : [vba excel] nettoyer un userform avec des optionbutton bonjour discusagon le forum as tu essaye unload me a la place de valideur. hide
  8. excalibur

    code VBA pour afficher données de plusieures feuilles

    Re : code VBA pour afficher données de plusieures feuilles re, jarrive pas a ouvrir ton fichier tu es sur du mot de passe??
  9. excalibur

    code VBA pour afficher données de plusieures feuilles

    Re : code VBA pour afficher données de plusieures feuilles zip pas passe
  10. excalibur

    code VBA pour afficher données de plusieures feuilles

    Re : code VBA pour afficher données de plusieures feuilles rebonjour si j ai compris a adapter attention j ai change le nom de 2 feuilles si tu as autres feuilles que les 38 citees il faut en tenir compte dans la macro j ai marque la ligne a modifier
  11. excalibur

    code VBA pour afficher données de plusieures feuilles

    Re : code VBA pour afficher données de plusieures feuilles bonjour lynyrd job75 le forum felicitations job pour tes 2000 posts un new barbatruc
  12. excalibur

    concatener + de 30 chaînes

    Re : concatener + de 30 chaînes bonjour carloside nat54 le forum une methode tres rapide pour concatenener sur 11000 lignes utilisant un tableau interm... je suis parti de ton exemple je m arrete a la colonne i en attendant plus infos de ta part comme cela pas facile???
  13. excalibur

    reconnaissance frappe list box

    Re : reconnaissance frappe list box bonjour le fil le forum jb ou jp ??
  14. excalibur

    reconnaissance frappe list box

    Re : reconnaissance frappe list box bonsoir le fil le forum effectivement for j= 1 to 1 pour selectionner recherche exclusivement sur la 1 colonne left =gauche len longueur chaine pour faire simple si tu tapes a il recherche dans toute colonne 1 les mots commencent par a & ainsi de suite...
  15. excalibur

    userform à +sieurs entrées

    Re : userform à +sieurs entrées bonjour titiborregan5 lanoe le forum un exemple a adapter