Bonjour mach1974
Merci pour ta réponse. :ccool:
J'avais espéré éviter de passer par un On Error mais s'il n'est pas possible de faire autrement, il faudra bien s'y résoudre.
Type: Messages; Utilisateur: Menhir
Bonjour mach1974
Merci pour ta réponse. :ccool:
J'avais espéré éviter de passer par un On Error mais s'il n'est pas possible de faire autrement, il faudra bien s'y résoudre.
Bonjour,
Je voudrais savoir s'il existe un moyen en VBA Excel de tester si un fichier est ouvert par un autre utilisateur.
Merci d'avance
Bonjour,
J'ai récupéré une galerie d'images sur ce site :
https://www.openoffice.org/fr/Documentation/Gallery/indexgal.html
Ces images sont au format SDG.
Les recherches que j'ai faites...
Merci pour vos réponse et veuillez excuser ces remerciements tardifs.
Ce que je cherchais est bien la propriété Caller.
Je savais que ça existait mais impossible de remettre la main dessus. Je...
Bonjour,
J'ai créé une petite function toute simple qui renvoie le nom de l'onglet dans lequel se trouve une cellule.
Function Onglet(Cellule As Range) As String
Onglet =...
Le problème n'est pas le format de la cellule source mais celui de la cellule destination qui reçoit la valeur.
Je laisse le demandeur répondre :
Ca devient vraiment n'importe quoi la modération sur ce forum.
Ma "crédibilité" sur un forum d'anonymes m'importe peu.
Mais je ne voudrais surtout pas faire perdre du temps en offrant un code qui ne soit pas parfaitement testé et qui ne répondent pas à...
Je viens de tester, Format(230, "0###") renvoie 0230.
Si tu obtiens 230, c'est sans doute parce que la cellule dans laquelle tu places cette valeur n'est pas au format Texte.
Cells(Ligne,...
En théorie, une fonction sert à calculer une valeur : on y entre des paramètres, on en ressort une valeur.
Elle n'est pas supposée pouvoir réaliser des actions, par exemple en utilisant des...
Je ne vois pas trop pourquoi il ferait ça.
Pourquoi placerait-il les noms de fichiers dans la variable en commençant à l'indice 1 et les ressortiraient en commençant à l'indice 0 ? :koi:
Ou on...
S'il y a 230 en colonne 8, Cells(ligne, 8);"0##") donnera "230" alors que Cells(ligne, 8);"0###") donnera "0230".
C'est ce que tu sembles indiquer dans ta réponse #8 entre le code en vert et celui...
Non, on commence à l'Item 1.
Effectivement, c'est le second Item si on a la regrettable (et incompréhensible pour moi) habitude d'avoir des item 0 dans ses variables tableau mais pour l'utilisateur...
Décidément, j'ai l'impression que tu ne lis pas vraiment ce qu'on t'écrit.
Je le répète, il faudrait que tu commences par appliquer les mêmes formats que ceux se trouvant dans ta formule Excel.
...
J'oublie tout le monde n'a pas l'habitude, comme je le fais, de mettre Option Base 1 en début de tout module.
D'un autre côté, je ne vois pas trop en quoi ça sera gênant...
A part occuper...
Il faudrait que tu commences par appliquer les mêmes formats que ceux se trouvant dans ta formule Excel.
Et prend aussi le temps de relire ma réponse précédente en entier.
Et tu n'as pas essayer d'aller regarder dans l'aide VBA la liste des fonctions ? https://docs.microsoft.com/fr-fr/office/vba/Language/Reference/user-interface-help/instrrev-function
Left(CC,...
Réponse selon le même principe qu'expliqué ici : https://www.developpez.net/forums/d1629888/logiciels/microsoft-office/excel/macros-vba-excel/recherche-doublon-plages-cellules/
Tu te fais une...
Il y a déjà à la base une grosse erreur dans ton code.
Lorsque tu écris :
MyFile87 = Dir(MyFolder87 & "\" & Range("D6").Value & "*.xlsx")
Ce n'est pas la commande "Dir" qui est placée dans...
CommandButton1.Caption = Format(Range("F33837").Value, "#.00")&"€"
Aussi bien dans VBA que dans la formule Excel, les & "" sont totalement inutiles.
Si tu veux l'équivalent VBA de la fonction TEXTE(), c'est Format().
Lire ceci :...
Dans ce cas, il suffit de faire =EQUIV(Consigne;C4:C133;1)+1.
Cela dit, 1 et -1 en troisième paramètres de EQUIV ne fonctionne que si les données sont triées.
S'il n'y a rien d'autre dans la cellule, ceci devrait fonctionner.
Workbooks("BDD.xlsx").Activate
Sheets("NM").Range("B2:B10000").Replace What:="MME", Replacement:="Madame", LookAt:=xlWhole...
Il serait souhaitable que tu présentes une copie d'écran des données à convertir, histoire de se faire une idée plus précise du contenu de tes cellules.
Ce qui m'étonne le plus, c'est que ça fonctionne avec MME.
Parce que ton code, tel qu'il est écrit, devrait remplacer tout ce qui suit MME (y compris ce qui va au delà de ce trigramme) par Madame....
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.