Résultats de la recherche

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...

Bonjour François, Un grand MERCI pour ton aide c'est exactement ce qu'il me fallait, Par contre à tout hasard serait-il possible de créer des barres de séparation entre les colonnes (voir également entre les lignes) ? Dans tous les cas je te remercie et te souhaite une excellente journée,

Bonjour à tous, Je débute en VBA et la j'ai du mal, J'aimerai dans une UserForm mettre une liste box avec plusieur colonnes J'arrive à le faire avec plusieurs listBox mais sa devien compliqué a cause du nombre de ligne et la gestion des barre de defilement Si dessous mon code actuel ...