Recherche:

ça marche #1 merci beaucoup

Bonjour,

J'hérite d'un fichier déjà existant que je dois modifier, il faudrait que j'ajoute le contenu de la boite qui s'appelle commentaires dans les courriel (voir pj)

Que devrais-je...

Je crois que j'ai trouvé mon erreur, je pense je ne pointais pas mon bouton sur la bonne macro... désolé du dérangement :oops:

Non même chose, en gros dans mon fichier j'ai créé 3 modules

le 1er appelle un fichier .cmd qui lui sort tout les fichiers qui sont dans le dossier


Sub CreateList()


Call...

Entre 1 et 3000 environ ça peut varier

Voila (Merci)

Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
Sub test()
FICHIER = "P:\documents\Tools\PDFTools\etiquettes.txt"
Open FICHIER For Input As #1
...

Mon fichier marche toujours super bien, j'ai donc voulu remettre ce même code dans un 2e qui fait la même chose mais avec une autre liste

Donc j'ai recopié le code, modifier le chemin des...

Merci beaucoup ça marche #1 très rapide, je l'ai un peu modifié


Sub test()
FICHIER = "Y:\DXF\Tools\Liste.txt"
Open FICHIER For Input As #1
PressePapier = Input(LOF(1), #1)
Close #1
With...

Merci JP. Comme je disais j'ai trouver le code sur Youtube et ça répondait à 99% de mon besoin.

Cells(2,9) -> de quel onglet ? -> pas obligatoire mais peu être source de problème / Mon onglet...

J'ai trouver une macro qui fait passablement ce que je veux, mais elle ne semble jamais terminé et est très lente. Je ne sais pas si il y aurait un moyen de l'améliorer ou un autre code qui ferait...

Trop logique =)

Quand on a la tête pleine on voit trop gros

merci

J'ai un fichier excel avec un peu de programmation et j'aimerais y ajouter une nouvelle fonctionnalité, soit compter le nombre de fois que le même produit revient

Voici ma source de donnée. Ma...

Ça fonctionne excatement comme j'ai besoin

Merci énormément

Pas exactement, mais merci beaucoup pour la solution détaillée

Bonjour,

J'ai ces 3 cellules dans excel soit Latitude/Longitude et un adresse URL


Je veux remplacer les valeurs de <Latitude> et <Longitude> par ceux dans mes colonnes latitude et Longitude. ...

Finalement j'ai trouvé


For i = 0 To .Cells(.Rows.Count, 2).End(xlUp).Row - 1

merci

En enlevant le -1 ça donne le même résultat

Personne d'autre a une idée de ce qui clocherait?

Bonjour, mon fichier marche maintenant #1, sauf qu'en faisant une vérification, je me suis aperçu que ma recherche ne va pas jusqu'au dernier élément dans la page, voir images (dans la 2e image) on...

Je suis encore au stade très débutant...donc oui je vais essayer de la décoder et la réessayer

Merci

Je pensais je devais remplacer cette ligne
oRng.Offset(i, 3) = oTable(2, i)
par celle que tu m'as donné... ça fonctionne maintenant

Merci

De plus en plus près, il ne manque pas grand chose, soit la couleur doit etre sur la colonne 2, mais le texte doit rester également

201252

merci de ton aide en passant très apprécié

Merci,

Je n'ai plus d'erreurs, tout fonctionne comme avant, mais sans que les couleurs apparaissent dans l'autre onglet malheureusement

Je vais mettre le code au complet au lieu de juste une...

Merci pour la correction,

Est-ce que je devrais définir oCell.Color dans les variables?


Sub Recherche()
'Déclaration des variables
Dim oRng As Range
Dim i As Integer, n As Integer
Dim...

ReDim Preserve oTable(1 To 3, 1 To n)
oTable(1, n) = oCell
oTable(2, n) = oCell.Offset(1, 0)
oTable(1, n) = oCell.Color

Est-ce que cette ligne devrait être à 3 au lieu de 1? oTable(1, n) =...

Bonjour,

J'ai ce code qui me permet de chercher des produits dans le classeurs, si il les trouvent il me copie la valeur du texte qui est dans la case dans un autre onglet, j'aimerais aussi...