Contenu récent par THOR57

C'est effectivement un peu plus propre :) Pour les #N/A ce ne sont pas des erreur de fonction c'est moi qui les avait mi sur les cellule non renseigner ^^ du coup j'ai modifier par des 0 :) c'est beaucoup mieux ^^ Merci encore pour tous :cool:

Merci beaucoup je vais essayer cet méthode :)

Par contre, Tous fonctionne nickel sauf quand je rencontre une cellule contenant #N/A Private Sub CommandButton1_Click() If MsgBox("Etes-vous sûr de vouloir sauvegarder ?", vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sauvegarde") = vbYes Then Dim counter As Integer counter = 0...

Je vais essayer de travailler dessus pour le faire fonctionner ^^

J'ai tester mais sa me test 0 Ligne With Sheets("TRAVAUX") Derlgn=.Cells(.Rows.Count,12).End(xlUp).Row For Lgn =1 To Derlgn If .Cells(Lgn,12) <> "" And Cells(Lgn,12)= Val(Me.TextBox1.Value) Then .Cells(Lgn ,17)=Me.ComboBox1.Value counter = counter + 1 End If Next Lgn End With

Effectivement j'ai tester et ca fonctionne aussi : Val(me.textbox1.value) Merci encore :)

C'est se que je pense également, mais Tu es un génie, j'avais essayer plus tôt dans le code avec : CDbl(me.textbox1.value) Et sa n'avais pas marcher mais j'ai modifier le code par la suite et je n'ai pas pensé a y revenir ^^ Un grand, Trés Grand Merci à toi ! Les 2 fonctionnent ...

Et se sera toujours uniquement des nombres de 0 à 1000

Un Nombre

La TextBox1 se trouve dans le meme UserForm que le bouton qui enclenche la procédure donc je pense que le Me est correcte meme si il me semble qu'il n'est pas obligatoire, Apres si je remplace : If ActiveCell = Me.TextBox1.Value Then Par : If ActiveCell = "86" Then par exemple le tous...

Bonjour ChTi160, J'ai tester avec ton code mais il me renvoi "0 Lignes ont été vérifiées"

Re, Merci pour vos réponse ultra rapide, J'avais déjà pensé à enlevez les " " et ( ) Me.TextBox1.Value (Me.TextBox1.Value) "(Me.TextBox1.Value)"" Mais cela ne fonctionne pas non plus, Aprés j'ai oublier de précisé et je ne sait pas si cela change quelque chose mais Me.TextBox1.Value renvoi un...

Bonjour tous le monde, J'ai un petit soucis, sans doute ridicule mais vraiment je bloque, je m'explique, j'ai un code : Sheets("TRAVAUX").Activate Range("L1").Select Do While ActiveCell <> "" If ActiveCell = "Ville" Then...

Bonjour, Merci pour ce super conseil j'ai juste rajouter un petit "CVar" et ca marche nickel :) CreateObject("Shell.Application").Open CVar(Chemin) Merci encore :)

Bonjour à tous ! J'ai un petit problème, J'ai un code qui fonctionne parfaitement sur mon ordinateur personnel, j'ai tenté de l'adapter sur mon ordinateur au boulot (réseau d'entreprises) Du coup j'ai adapté le chemin (et ça fonctionne pour la création du dossier si j'enlève "Shell...