Recherche:

Par exemple pour faire ton traitement C1:C33:

For j = 1 to 33
For i = 1 To Len(range("C" & j))
If Mid(range("C" & j), i, 1) = "_" Then range("C" & j).Characters(i, 1).Font.ColorIndex = 19...

Tu dois changer ton code :) Montre le nous.

une boucle sur tous les fichiers d'un répertoire avec FSO ou dir en les ouvrant copiant puis fermant. Rien de très sorcier.

hahaha après relecture je vois que je suis un bouffon; tu as raison.

Engue...:boulet:

Arrives tu à voir les trois lapalissades ?

For Each mCellule2 In Target
If mCellule2.Column <= 13 then

if "toto"= "toto" and mCellule2.row>1 and isnumeric(1) then 'and .......

Euh... Je comprenais aussi avant! Mais j'insiste sur le fait que tester que le row>1 est inutile puisqu'il l'est par définition :)

Je n'arrive pas à concevoir des cas où un target.row ou un target.column seront < 1, mais je vais y réfléchir :)

é ce ki kompren il son jenti ?

Oliv' tu connais des row < 1 ?

Sinon si toi être intelligent... toi pouvoir penser ça:

For Each mCellule2 In Target
If mCellule2.Column <= 13 then
traiter_cellule1 mCellule2
' MsgBox ("ok")
...

En général avec le clavier : "de la colonne 1 jusqu'à la colonne 13"
Mais sinon tu peux aussi l'écrire avec un stylo ou avec un crayon. Pour finir il est possible d'écrire en mettant son doigt dans...

Si tabcmd(j) est vide, cells(tabcmd(j), 17) va beuguer puisque la ligne 0 n'éxiste pas... donc ton test est inutile..

X = Format(DateSerial(ComboBox1.Value, 1, 1), "yyyy")

Encore un peu bête.. Tu connais le mois 2013 ? ca ne va que de 1 à 12 :D

Si ce BeepBeep ne te plait pas, celui ci déchire:


sub rebip()
Beep 1480, 200

Beep 1568, 200

Beep 1568, 200

N'écris pas par MP

A mettre dans Thisworkbook:

Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long

Sub BeepBeep()
Beep 392, 200
Beep 494, 100
Beep...

Alors si tu cherches à écrire une macro dans le fichier A qui détecte si le fichier à son ouverture a mis plus de 30 secondes. Ce n'est pas possible.

Par contre tu peux créer un classeur "Ouvreur"...

suffit de faire "A6"...

Comme j'avais fait une petite boucle je la poste...

Cependant les techniques suggérées par Marc sont bien plus rapides

Affecte ceci à ton bouton ça devrait gazer:

Sub Rectangle1_Cliquer()
...

utilise .formulalocal pour que ton vba sache parler français...

Sinon il y a une méthode vba pour cela


Worksheets("Ref").Cells(Compteur, 9) = UCASE(cstr(Worksheets("Ref").Cells(Compteur,...

For Each Link In ActiveWorkbook.LinkSources
debug.print link.name
Next link

Au vu de ton niveau je te propose un code que tu pourras comprendre, il serait bien plus simple de faire un find...

Sub Macro1()
Dim i As Integer
Application.ScreenUpdating = False
...

Sub toto()
Dim i As Long
With Sheets("Feuil1")
For i = 2 To .Range("N" & .Rows.Count).End(xlUp).Row
.Cells(i, .Range("N" & i).Value) = .Range("O" & i)
Next i...

Si C1 de la feuille 1 est différent de A1 de la feuille 2 alors supprimer la ligne 1 de la feuille 1 ?

Ou alors

Si C1 de la feuille 1 n'est pas dans la colonne A de la feuille 2 alors supprimer...

Tu fais une textbox, sur l'évènement change de cette textbox tu vas boucler sur la colonne qui vient remplir la listbox et vérifier si il contient bien ce que tu as tappé; deux façons de faire avec...

find avec findnext
ou for avec instr