Contenu récent par Nicko29

Effectivement.. Nikel merci.

Je bloque sur L, comment sortir de la marco si L is nothing ? L = WsREAL.Cells.Find(What:=ldm, After:=[A1], LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Row ca nr marche pas comme ca : set L...

Oui , ci-joint le tableau sans macro. C'est exact je n'ai pas prévu l'éventualité ou L peut être Nothing. C peut effectivement être -1 aussi, lorsque cela bloque, J = 256 ,ColReg = 16, L = 343 et c = "4" la est surement le problème C = "4" au lieu de 4 J'ai repassé les lignes c =...

Bonjour, Je peine à me corriger, j'ai une erreur 1004 qui se produit dans une boucle du code, alors que le code marche et boucle correctement sur une dizaine de ligne puis plante. sur cette ligne. J'ai l'impression que j'ai loupé un truc, je ne suis pas non plus un pro VBA. Une idée ? je tourne...

Bonjour, J'ai recréé mes fonction en vba: - DECBIN : Conversion decimal en binaire - BINDEC : Conversion binaire en decimal - REEL : conversion reel en binaire et ma macro de conversion : - testConversion et ma macro de test : test3 Le but est de convertir un nombre à virgule flottant...

Re : MFC-colorier les doublons sauf sur cellules à formules avec résultat nul (="") Merci, impeccable, par contre la, j'avoue ne pas tous comprendre, le bout de code &"*" je saisis pas ! une façon d'identifier le reste de la chaîne de caractère qui ne sert pas. Merci !

Re : MFC-colorier les doublons sauf sur cellules à formules avec résultat nul (="") hum, je complique un peu les choses, est-t-il possible de colorer les cellules lorsque les 3 première lettres sont identiques. Je me sers d'une formule pour afficher du texte : " THF-DSJ" je souhaiterais...

Re : MFC-colorier les doublons sauf sur cellules à formules avec résultat nul (="") Effectivement ! Merci à vous deux ! la condition avec le ET, logique, pas penser.Merci

Bonjour, Je rencontre un problème , je souhaite identifier les doublons avec une couleur en restant simple par une mise en forme conditionnelle. Mais la recherche de de doublons s'effectue sur le résultat d’une fonction "Si". Et quand la cellule qui contient la formule est vide ( ="") Excel...

Re : Insertion fichier html en tant que texte Bien, j'ai la solution, La fonction" FSo.GetFile(NomFichierHTML).OpenAsTextStream.ReadAll" ne sait pas lire correctement les caractères accentués. La solution est de remplacer : f = FSo.GetFile(NomFichierHTML).OpenAsTextStream.ReadAll Par...

Bonjour, Quelle est la syntaxe VBA pour remplacer l'action manuel d'insérer un fichier en html en tant que texte dans nouvel email outlook 2010 ? Je m'explique, je suis passé par le code ci-dessous mais les caractères spéciaux sont mal affiché alors que manuellement il le sont...

Re : VBA Excel access : Requete where avec une valeur de champ textbox en parametre Bonjour, Ma syntaxe était incorrecte en fait, voilà la bonne méthode : Private Sub ComboBoxTriAffaires_Change() Dim bd As DAO.Database Dim rs As DAO.Recordset Dim Requete, VlCb As String VlCb =...

Bonsoir, je bute sur un bout de code, J'ai une base de données avec deux colonnes Tri_affaires et CodeAffaires, plus un numéro auto en clé primaire. Dans un formulaire j'ai dans une combobox toutes la liste de mes trigramme affaires (Tri_affaires) , et dans un champ textbox , j'aimerais...

Re : Extraire les données d'uen cellule d'un classeur fermé Bonjour kiki29, Effectivement je suis passé à coté de ton code , il existe tellement de posts, bon afin de reboucler sur une très bonne solution je remet le lien vers ton Lien supprimé et le lien vers le post...

Bonjour, J'ai ce code qui marche bien pour lister des fichiers , Option Explicit Public nb As Integer Sub Appel() Dim chemin As String nb = 0 chemin = ThisWorkbook.Path Lister chemin End Sub Public Function Lister(chemin As String) Dim fs, Rep As Variant, NewRep As...