Résultats de la recherche

Re : Qui postera le 1 000 000 ème message? Bonsoir, En tant que "gentil contributeur" utilisant VBulletin, j'apporte ma modeste pierre à l'édifice avec les stats suivantes : Les 50 plus grands contributeurs participent à hauteur de 25,98 % (soit 259947 messages) Les 100 plus grands...

Re : Qui postera le 1 000 000 ème message? Bonsoir chère communauté, un petite question adressée aux responsables statistiques du forum : parmi les 50 plus gros contributeurs (dont vous parliez plus haut), combien de messages a déposé le 1er contributeur et combien de messages pour celui qui...

Re : Qui postera le 1 000 000 ème message? Ben ouhais c'est fait !

Re : Qui postera le 1 000 000 ème message? Allez je me lance, bravo à tous pour ce million de messages ! Et bonne continuation.

Re : calendrier dans userform Bonjour, en pièce jointe vous trouverez un fichier excel faisant appel au bon vieux contrôle "calendar". Il suffit de faire double click sur une cellule contenant une date dans la feuil1 et la calendrier apparaît, le reste est enfantin ... Cdt. Hamcec.

Re : Qui postera le 1 000 000 ème message? Salut le Forum, Avec un tel engouement pour un tel évènement, je pense que le Million sera atteint avant ! Cdt, Hamcec.

Re : Qui postera le 1 000 000 ème message? Bonsoir le forum, pour reprendre le premier message de ce post "Si l'un d'entre vous a la chance de flasher ce message, ...", quelle est la méthode pour flasher un message ? Cdt, Hamcec.

Re : Extraction d'informations dans une chaine de caractère Bonsoir le Forum, Une autre fonction en VBA utilisant la fonction split (bien utile). Public Function F_Chat(A_Chaine As String) As Long Dim L_Cpt As Long Dim MonTableau As Variant MonTableau =...

Re : Recherche par catégorie Bonjour le Forum, En pièce jointe une proposition de solution. PS : Pour faciliter la lecture, je me suis permis de renommer quelques objets ou variable ... Cdt, Hamcec.

Re : Derniere ligne du talbeau Bonsoir, Nouvelle option possible : Sub P_Selection() Range(Cells(1, 1), Cells(Cells(1, 1).CurrentRegion.Rows.Count, 1)).Select End Sub Cdt, Hamcec.

Re : Aperçu de pages définies! Bonsoir, une solution consisterait à définir, via une macro, la zone d'impression (Zone_d_impression) contenant seulement les pages que tu voudrais voir apparaître et de lancer par la suite l'apercu ... A+, Hamcec.

Re : redimensionner image lors d'une insertion automatique dans une cellule fusionnée Bonsoir job75, Votre code avait bien entendu été testé. En me référant au titre du post "redimensionner image lors d'une insertion automatique dans une cellule fusionnée", je voulais simplement indiquer que...

Re : redimensionner image lors d'une insertion automatique dans une cellule fusionnée Merci pour le ShapeRange. Une petite remarque : en fonction de la plage fusionnée cible, les proportions de l'image ne pourront pas être conservées ... Cdt, Hamcec.

Re : redimensionner image lors d'une insertion automatique dans une cellule fusionnée Si tu veux adapter mon bout de code au tien, il suffit de remplacer "c:\mon_image.jpg" par ton nom de fichier "\\sparte.asp.fr\data\adv\photos\" & Me.LstDoseur & ".jpg", ce qui donne : Sub InsertPicture()...

Re : Création d'un fichier txt Bonjour le forum, Le bout de code ci-dessous devrait répondre au besoin : Public Sub P_EcrireDansFichier() Dim L_Compteur As Long Dim A_NomFichier As String L_Compteur = FreeFile '---construction du nom de fichier (à adapter si...

Re : redimensionner image lors d'une insertion automatique dans une cellule fusionnée Bonjour, Le bout de code ci-dessous permet de redimensionner l'image insérée dans une plage à cellules fusionnées ! Sub InsertPicture() Dim MaSelection As Range Dim MyPicture As Picture...

Re : VBA signe "\" Bonjour le forum, ce signe indique l'opérateur de division, on divise dans ton cas (gauc + droi) par 2. A+ Hamcec

Re : Aperçu (Genre d'info-bulle) d'une cellule trop large Bonsoir le forum, Il ne faut pas oublier de gérer l'erreur n°1004 (Erreur définie par l'application ou par l'objet) quand le nombre de caractères de la cellule traitée est supérieur à 254 : En utilisant par exemple le code suivant...

Re : définir la propriété rowsource et concaténation Bonsoir le forum, Plusieurs solutions à ton problème : ListBox1.RowSource = Range("janvier2006").Address Ou ListBox1.RowSource = Range(Range("date")).Address Ou ListBox1.RowSource = Range(Trim(Range("date_archive_mois")) &...

Re : Fonction Si multiple Bonsoir, je vous propose la formule suivante : =SI(B1>1,8;0;SI(ET(B1<1,8;C1>0,5);B1-1;-1)) A+, Hamcec.