Contenu récent par moustache

Re : Immobiliser un Command button??? Bonjour, Ci-joint deux solutions que j'avais trouvées sur le forum en mars dernier (en faisant une recherche avec "bouton volant" on doit les retrouver)

Re : Compter des valeurs dans un tableaux Bonjour, C'est pas beaucoup + compliqué pour 12 que pour 1 : Sub Compte() Dim C As Range Dim Somme(12) As Integer For i = 1 To 12 Somme(i) = 0 For Each C In Feuil2.Range("B3", "Z6") If C.Value = i Then Somme(i) =...

Bonjour, Pour que ça marche juste en passant sur la cellule, je ne sais pas faire ; mais en cliquant, est-ce que ceci te convient ? [file name=test_mle.zip size=8577]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_mle.zip[/file]

re Si ça marche, ne te complique pas la vie ; mais à l'avenir, rappelle toi : goto = danger !! @+

re Si ça marche, ne te complique pas la vie ; mais à l'avenir, rappelle toi : goto = danger !! @+

re Si ça marche, ne te complique pas la vie ; mais à l'avenir, rappelle toi : goto = danger !! @+

Bonjour Denis, et le forum, Désolé de te corriger, mais exit for me sort de la première boucle, et le test sur exist m'envoie après le endif, donc sur l'instruction exist = 0 (P... si je me plante, je suis mort :ohmy: ) @+ B)

Bonjour à tous, juste une question en passant : on m'a toujours dit d'éviter comme la peste les 'goto'. est-ce que le code suivant ne fait pas la même chose de façon un peu plus propre (pardon si je me trompe) For i2 = 1 To Derligne2 For i1 = 1 To Derligne1 If...

Bonjour à tous, Bon, moi j'ai copié ton code sur ma bécane, j'ai testé, et ça marche dans tous les cas de figure (que le fichier existe ou pas) Donc je confirme : ça doit être un problème d'accès ?

Bonjour, Ce n'est pas une question de format, c'est les données qui sont du texte. (ESTNUM(A16) donne la valeur FAUX) A part ça on peut les convertir soit par le menu données / convertir soit par la fonction CNUM @+

Bonjour famu, le forum... Cells(21, 27) = Workbooks('LUNDI.xls').Sheets('Feuil1').Cells(2, 5)

Bonsoir Bruce, Temjeh, Range('A2').Select Selection.Copy Range('B5').Select Selection.PasteSpecial Paste:=xlPasteFormats

Bonsoir Bruce, Temjeh, Range('A2').Select Selection.Copy Range('B5').Select Selection.PasteSpecial Paste:=xlPasteFormats

Bonsoir Petronie, Thierry, henri, le forum Je crois que ton pb vient d'un mélange entre texte et nombre ; le nom d'une feuille est du texte. Donc il faut empêcher ton code de se mélanger les pinceaux entre le numéro des feuilles et leur nom Regarde ça, pour moi ça marche, je ne sais pas...

Re Plus précisément : C'est quoi, le nom de la feuille que tu cherches ? Comment est-ce que tu le construis à partir de la valeur de ta textbox ? @+