Profil de Pinzut77 - CodeS SourceS

Calcul du quantième d'une date Résolu

Bonjour, Après quelques recherche sur google je n'ai pas trouvé de fonction pour calculer le quantième d'une date (enfin si j'en ai trouvé mais elles ne fonctionnaient pas). Si quelqu'un connait la fonction pour faire ça, merci de poser ici ! Bonne journée

Ah ok merci pour le detail de la fonction Jean-Marc mais qu'elle est la difference entre le premier nombre donné et le deuxième (MsgBox "qqq: " & qqq et MsgBox "Si date = 07/02/2002 => aaqqq = " & Right(xDate,2) & "00" & DatePart("y", xDate))

Si je fais ma cellule =datepart(la cellule content la date) il est affiché #NOM? (exemple "=dateparte(A1)")

Utilisation d'une variable dans une prodécure Résolu

Bonjour, les macro que j'ai créé contiennent des lettres de colonne que j'aimerais placer tout au début de ma macro pour des questions pratiques (comme ça l'utilisateur final n'a pas besoin de chercher les lignes à modifier dans le code). Voila un exemple : colonne = "J" For compteur = 1 to 5 nom = ActiveSheet.range("J... Lire la suite

Quand je met colonne ="J" sa fonctionne mais si je le précéde de Const alors là ça ne fonctionne plus (il me dit que la variable est deja défini sur la porté enfin bref j'ai rien capté). Merci pour votre aide

macro excel pour tout les classeurs Résolu

Bonjour, voila une macro qui me réorganise des copier/coller sur une colonne en ligne, je voulais savoir comment rendre cette macro valable pour tout les classeurs (je suis obligé de copier/coller les macro dans mon nouveau projet pour la faire fonctionner). J'ai pris cette macro pour exemple afin de faciliter l'explication sur les modif... Lire la suite

Ok d'accord, je m'en sers en faisant alt + F11 du coup car il faut changer certains paramètres avant l'exécution. Merci à tous pour vos réponses (Julien mes macros servent à faire de l'ordre dans mes tableaux genre dissocier des mots, virer les espaces superflu des truc comme ça...) Bonne soirée!

Ok la manip a fonctionné pour la macro complémentaire, je l'ai bien coché mais elles n'aparaissent pas dans mes macro (outil, macro, macro...)

Finalement quelques difficulté, je n'ai pas perso.xls et Julien comment fait on pour creer la macro complémentaire ? merci pour vos réponses

Ah Julien on a posté en même temps, merci à toi aussi je vais essayer ^^

Ok c'etait tout bête alors :p Merci pour ta réponse !

Condition pour retour à la ligne introuvable ...

Bonjour, Voici une macro qui permet de mettre info de contact de ma colonne sur une ligne mais voila je ne trouve pas de condition pour aller à la ligne (incrémenter ligne de 1 car ma colonne contient plusieurs contacts) . Il ne me reste plus beaucoup de neuronnes si quelqu'un à une idée merci d'avance (la condition avec les copier = c... Lire la suite

Problème résolu à l'aide de marqueur sur le tableau ... Jack si j'incrémente les colonnes lorsque c'est vrai il y aura autant d'espace entre mes colonnes que de cases vides ce qui ne m'intéresse pas du tout mais mon problème n'était pas la du tout ... Merci pour ta réponse quand meme, si quelqu'un connait le moyen de supprimer un topic me...

macro VBA avec InStr Résolu

Bonjour, Voila le code que j'ai mis ne veut pas me donner la position du caractere espace ... si je le met en dur direct dans la fonction cela fonctionne mais quand je vais chercher ce texte dans une cellule et la plus rien. Si quelqu'un à une idée merci d'avance Sub space() Dim iPos As Integer Dim copier As Strin ... Lire la suite

Votes

J'ai contourné le problème donc c'est pas grave ! Merci beaucoup à toi Juien et aux autres ^^

Encore merci Julien c'est vraiment formidable ! Une dernière pour la route ... Est il possible d'enlever les espaces superflu ? Genre ceux à la fin des cellules (il y a desfois un espace qui traine) et ceux entre les mots comme M. Francois PIGNON où il peut y avoir jusqu'a 3 espaces entre le prénom et le nom .. Merci ^^

Encore un tout petit probleme... Avec tout ces espaces sa me fait une tonne de cas à gérer (nombre d'espace, type d'espace et nombre d'espace total...). Est il possible de remplacer les espaces par un seul et unique espace ? Une fonction excel fait peut etre ça ? La fonctioner chercher/remplacer marche t'elle avec un code ascii ? merci po...

Je t'adore !! c'est impeccable ! Merci pour vos réponses super rapide !

Oui sa affiche bien 4 car j'ai refais les espaces à la main ... les espaces que l'on voit ne sont pas considérés comme des espaces apparemment donc il faut tous les refaire et là sa fonctionne

Je pense avoir mis le doigt sur le problème... Si je reprend le texte de ma case et que je refais les espace (backspace + space) ma macro fonctionne très bien... Mais bon j'ai 1238 cases (sur une colonne) à traiter je vais peut etre pas m'amuser à refaire tout leur espace... Le contenu de ces cellules ont été faite à partir de copier / c...

Sub testspace() Dim nom As String Dim iPos As Integer For compteur = 5 To 11 Step 2 nom = Range("C" & compteur) MsgBox nom iPos = InStr(1, nom, " ") MsgBox iPos Next compteur End Sub Voila le code de test... j'ai bien mes chaînes dans les messages box mais toujours rien dans le iPos Galopino j'ai ...