6352 résultats trouvés

Re Je vais regarder cette après midi pour le MAC mais essayez déjà comme ceci : Essai 1 : Supprimer l'instruction "resume" car c'est elle qui vous met en boucle. ensuite relancer votre code Essai 2 : Remplacez l'instruction resume par Call Test_Constante_TVA In fine il faudra modifier le code car si...

Bonjour Boucle infinie ? Que voulez-vous dire ? Cela fonctionne bien mais vous êtes sous MAC si je vois bien ? Si oui, par défaut le point devient virgule je pense. Est-ce que le code doit fonctionner dans les deux environnements PC et MAC ? Exemple: si l'on renseigne un chiffre 50.2 au lieu de 50,2...

Bonjour Mettez ce code dans votre userform Private Sub cboActions_change() Dim iTrouve As Integer With Sheets("SUIVI DES ECHANGES 2020") optExist.Value = True 'coche automatiquement 'recherche la ligne correspondante On Error Resume Next iTrouve = WorksheetFunction.Match(cboActions.Value, .Range("C:...

Re Remplacez le code par celui-ci : Sub test() Dim d Dim lig As Integer, i As Integer, j As Integer Dim z As Byte Sheets("Résultat attendu").Range("A1").CurrentRegion.Offset(1, 0).ClearContents lig = 2 With Sheets("source") For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row d = .Range("C" & i).Val...

Bonjour

Votre fichier en retour
Cliquez sur le bouton placé dans la feuille Source

Cordialement

Bonjour

Vous pourriez expliquer comment vous fonctionnez avec ce tableau ?

Crdlt

Bonjour Logique vous mettez une formule en Français dans VBA qui ne voit que l'anglais Si la formule dans votre cellule est bonne remplacez : decaler par OFFSET Equiv par MATCH Ligne par ROW Si elle n'est pas bonne je vous conseille de la placer dans une cellule et d'obtenir dans cette cellule ce qu...

Edit Dan :supprimé - pas de réponse du demandeur

Re

Ok bizarre votre souci ou alors votre fichier est trop lourd...

Mettez le sur www.cjoint.com puis mettez ici le lien qui vous sera donné.

Cordialement

Bonjour j'avais mentionné dans mon post qu'il faut utiliser la colonne B et non A.même mieux la colonne C. Vous pouvez modifier ce code déjà : Private Sub UserForm_Initialize() Dim iDerLig As Integer Dim iLig As Integer 'liste des actions cboActions.Clear iDerLig = Range("C" & Rows.Count).End(xlUp)....