Résultats de la recherche

  1. lebarbo

    XL 2019 [Résolu] Problème VBA Find

    Bonjour à tous, Je me bats avec un code 🤯 Sub Find() Set Trouve = Sheets("Feuil1").Range(Cells(1, 1), Cells(3, 1)).Find(What:="5200", After:=ActiveCell, LookIn:=xlValues _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False)...
  2. lebarbo

    Ajouter une zone de commentaire à dimension variable ?

    Bonjour à tous, Je cherche à ajouter automatiquement une zone de commentaire sur une cellule. Jusque là tout va bien, j'utilise le code ci-dessous : Sheets(NomFeuil).Range("B" & i).AddComment Sheets(NomFeuil).Range("B" & i).Comment.Text Text:=Moncommentaire Mais je souhaiterais que...
  3. lebarbo

    Fonction matricielle, se décaler par rapport au résultat

    Bonjour à tous, Je prends volontairement un exemple simpliste pour vous expliquer mon problème : J'ai trois colonnes : --------A ---------B--------C 1------max-------5--------15 2------dupont----1-------12 3------roger------2--------6 Je fais le calcul suivant : ={max(B1:B3-C1:C3)}...
  4. lebarbo

    Rechercher un contenu partiel sur le nom d'une feuille ?

    Bonjour à tous, Je cherche à tester le contenu du nom d'une feuille pour executer un bout de code. En somme ma feuille s'appelle "Ma Liste Perso" si le terme "Perso" est dans le nom de la feuille (ici vrai) alors j'execute la macro. J'ai essayé ce code sans résultat : If Search("*Perso*"...
  5. lebarbo

    Macro Outlook qui ne fonctionne plus après passage en 2010

    Bonjour à tous, Après le passage en Outlook 2010, ma macro qui est dans le ThisOutlookSession servant à enregistrer une pièce jointe ne fonctionne plus. Elle ne se lance même plus. Y-a-t'il des paramétrages à modifier ? Dim WithEvents objInbox As Outlook.Items Private Sub...
  6. lebarbo

    Aide sur calcul matriciel

    Bonjour à tous, Je souhaiterais faire un calcul (médiane pour mon exemple) sur un tableau (plusieurs colonnes) uniquement sur les lignes complètement renseignées et exclure les autres. Aujourd'hui j'utilise une colonne de tri qui calcule pour chaque ligne si la ligne est complète puis je...
  7. lebarbo

    Formule matricielle avec critère d'exclusion

    Bonjour à tous, J'essaie de trouver une fonction matricielle qui puisse me calculer une moyenne en excluant une partie de l'échantillon exemple : Département ; Nombre 44;2 45;3 56;1 44;2 56;3 Je souhaite exclure ici le département 56 et calculer la moyenne de la 2ème colonne. Mon...
  8. lebarbo

    Problème de conversion csv avec des dates

    Bonjour à tous, J'ai un code qui me permet d'enregistrer une pièce jointe quand un mail arrive dans ma boite aux lettres, jusque là ça va. Ensuite le CSV est retraité pour modifier certaines cellules grâce à du VBA. Mon souci est que cette transformation me modifie mes dates et les passes...
  9. lebarbo

    Convertir un CSV en XLS

    Bonjour à tous, J'ai un code qui me permet d'enregistrer une pièce jointe quand un mail arrive dans ma boite aux lettres, mon souci c'est que la pièce jointe est en CSV et je n'arrive pas à convertir proprement le CSV en XLS pour ensuite pouvoir modifier certaines cellules en VBA. Voici mon...
  10. lebarbo

    Calcul de la médiane sur matrice avec ligne non vide

    Bonjour à tous, Je souhaite calculer la médiane de chaque colonne dans un tableau qui contient 7 lignes et 2 colonnes (j'ai fait simple pour l'exemple). Je vais donc avoir deux résultats. Mon souci est d'obtenir ces deux résultats en fonction uniquement des lignes non vide sur les deux...
  11. lebarbo

    Code VBA dans Outlook qui ne fonctionne pas ?

    Bonjour à tous, Je suis en train de faire un code pour modifier un fichier Excel mais je précise que ce code doit être dans Outlook (se déclenche quand un certain type de message arrive) ---------------- Sub modif() Dim appExcel Dim wbExcel Dim wsExcel ''Ouverture de...
  12. lebarbo

    Item.Subject pour un objet de message variable ?

    Bonjour à tous, Je suis en train d'écrire un code pour qu'une pièce jointe s'enregistre sur le dur si l'objet du message contient "essai" J'utilise donc la fonction Item.Subject = "essai". Mon problème c'est que cet objet peut être complété par exemple "230 essai" ou "230 essaietrr". Il...
  13. lebarbo

    Outlook VBA : Sauvegarder une pièce jointe sur le dur après réception d'un mail ?

    Bonjour à tous, Je souhaiterais après réception d'un mail spécifique (détectacle grâce à l'objet), enregistrer la pièce jointe (un CSV) automatiquement sur le dur tout en modifiant le fichier avant ou après l'enregistrement. J'ai bien cherché des scripts mais sans succès. Merci d'avance...
  14. lebarbo

    Formule double conditions matricielles

    Bonjour à tous, Je cherche à créer une formule avec deux conditions matricielles. C'est un peu compliqué à expliquer. Ma première condition doit exclure les séries où des données sont manquantes. Ma deuxième recherche les prénoms correspondant. Et mon tout fait la somme. Le plus simple...
  15. lebarbo

    Sauvegarder la modification d'emplacement d'un bouton de commande ?

    Bonjour à tous, bonjour le forum, J'ai créé récemment (grâce à la contribution de MJ13) une CommadBars avec un bouton. Cette commande se lance à l'ouverture du classeur grâce à un xla et au code dans le ThisWorkbook. Mon problème est qu'Excel ne mémorise pas les modifications d'emplacement...
  16. lebarbo

    Visibilité d'une macro présente dans une macro complémentaire ?

    Bonjour à tous, J'ai fait une macro dans un module, de type : Sub blablbla End Sub J'ai ensuite enregistré le classeur en macro complémentaire puis ajouté la macro complémentaire. Mon souci est que je peux éxecuter la macro en tapant son nom dans ALT+F8 mais elle est invisible et...
  17. lebarbo

    Actualisation des données dans l'userform

    Bonjour à tous, J'ai un userform avec deux zones de listes modifiables : 1/ la 1ère donne le choix entre plusieurs variables 2/ la 2ème est dépendante du résultat de la première et les choix proposés à l'utilisateur vont donc s'actualiser en fonction de la liste 1. Comment faire pour que...
  18. lebarbo

    Function VBA pour renvoyer une plage ?

    Bonjour à tous, Je cherche à utiliser une fonction qui me renverra une plage. Mais Excel doit comprendre que le résultat corresponde bien à une plage. Je m'explique, Je fais ma fonction "Plage", en fonction de critères à rechercher (avec la fonction .find) dans une feuille. Ensuite je dois...
  19. lebarbo

    Graphique : histogramme avec encadrement de valeurs

    Bonjour à tous, Je souhaiterais faire un graphique "histogramme" avec un encadrement de valeurs. En fait, au lieu de prendre une donnée sur l'axe des abscisses correspondant à une donnée en ordonnée, il faudrait prendre un encadrement de données en abscisse pour une donnée en ordonnée. Pour...
  20. lebarbo

    Problème Application.Countif avec Redim

    Bonjour le forum, bonjour à tous, Je suis en train d'essayer de construire une fonction en utilisant Redim et Countif : ------------------------------- Function Essai(Plage As Range) Dim TabResult As Variant Dim L As Long ReDim TabResult(1 To Plage.Count - 1) For L =...