Résultats de la recherche

Merci Bernard, ça fonctionne, je ne connaissais pas. C'est noté pour le code en balise. Concernant la simplification, je ne passe pas directement par A1:A3 car mon code est une boucle next avec des variables. Ici je l'ai volontairement simplifié. Bien à vous,

Bonjour à tous, Finalement j'ai encore un problème, si j'exécute ma macro sur une autre feuille que la Feuil1, j'ai une nouvelle erreur : Sub Find() Set Trouve = Sheets("Feuil1").Range(Cells(1, 1), Cells(3, 1)).Find(What:="5200", LookIn:=xlValues _ , LookAt:=xlPart, SearchOrder:=xlByRows...

Merci Bernard c'est top ! Et désolé Phil pour mon manque de détails.

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)...

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...

Re : Fonction matricielle, se décaler par rapport au résultat Bonjour à vous deux, Merci pour votre aide, tout fonctionne ! ++

Re : Fonction matricielle, se décaler par rapport au résultat Bonjour Rachid, En fait je voulais simplifier mais au vu du problème j'attache un fichier. Monique, je ne peux créer des formules dans mon tableau, car il est construit à partir de lien dynamique vers un autre outil et ça...

Re : Fonction matricielle, se décaler par rapport au résultat Bon... je pense que je l'ai un peu trop simplifié et du coup je n'arrive pas à reproduire la solution...Est-il possible de remplacer max par grande.valeur( ; 1) et d'ajouter une condition sur la colonne D : --------A...

Re : Fonction matricielle, se décaler par rapport au résultat Bonjour Monique, Je ne sais pas s'il y a plus court mais en tout cas ça fonctionne parfaitement !! Merciiii

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)}...

Re : Rechercher un contenu partiel sur le nom d'une feuille ? Merciii jpb388 Je pensais avoir testé cette méthode mais visiblement il devait manquer quelque chose. Merci encore !!

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*"...

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...

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...

Re : Formule matricielle avec critère d'exclusion En fait ça fonctionne, désolé mon exemple n'était pas probant. Merci,

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...

Re : Convertir un CSV en XLS Bonjour à tous, Après de longues heures de recherche, j'ai trouvé la solution, il suffisait d'ajouter : FieldInfo:=Array(0, xlDMYFormat) à la ligne : wsExcel.Columns(1).TextToColumns Destination:=wsExcel.Range("A1"), DataType:=xlDelimited, Tab:=False...

Re : Problème de conversion csv avec des dates Bonjour à tous, Après de longues heures de recherche, j'ai trouvé la solution, il suffisait d'ajouter : FieldInfo:=Array(0, xlDMYFormat) à la ligne : wsExcel.Columns(1).TextToColumns Destination:=wsExcel.Range("A1"), DataType:=xlDelimited...

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...

Re : Convertir un CSV en XLS Bonjour à tous, Après de multiples recherches me voici de retour. Dans le ThisOutlook j'ai : --------------------------------------------- Dim WithEvents objInbox As Outlook.Items Private Sub Application_Startup() Set objInbox =...