6352 résultats trouvés

par Dan
Aujourd’hui, 11:35
Forum : Excel - VBA
Sujet : Boucle infinie affichage Err_Handler
Réponses : 7
Vues : 34

Re: Boucle infinie affichage Err_Handler

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...
par Dan
Aujourd’hui, 11:12
Forum : Excel - VBA
Sujet : Boucle infinie affichage Err_Handler
Réponses : 7
Vues : 34

Re: Boucle infinie affichage Err_Handler

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...
par Dan
Hier, 17:31
Forum : Excel - VBA
Sujet : User form incrémenter données + recherche
Réponses : 9
Vues : 65

Re: User form incrémenter données + recherche

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:...
par Dan
Hier, 17:16
Forum : Excel - VBA
Sujet : Duplication lignes x fois en fonction de dates
Réponses : 4
Vues : 19

Re: Duplication lignes x fois en fonction de dates

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...
par Dan
Hier, 15:22
Forum : Excel - VBA
Sujet : Duplication lignes x fois en fonction de dates
Réponses : 4
Vues : 19

Re: Duplication lignes x fois en fonction de dates

Bonjour

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

Cordialement
Exemple.xlsm
(17.11 Kio) Téléchargé 16 fois
par Dan
Hier, 14:18
Forum : Excel - VBA
Sujet : Comptabiliser occurences avec une macro intégrant un code de couleurs
Réponses : 1
Vues : 32

Re: Comptabiliser occurences avec une macro intégrant un code de couleurs

Bonjour

Vous pourriez expliquer comment vous fonctionnez avec ce tableau ?

Crdlt
par Dan
Hier, 14:02
Forum : Excel - VBA
Sujet : Fonction DECALER / INDIRECT / EQUIV en VBA et erreur
Réponses : 1
Vues : 29

Re: Fonction DECALER / INDIRECT / EQUIV en VBA et erreur

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...
par Dan
Hier, 12:06
Forum : Excel - VBA
Sujet : Case cocher pour récapitulatif sur une autre feuille
Réponses : 4
Vues : 36

Re: Case cocher pour récapitulatif sur une autre feuille

Edit Dan :supprimé - pas de réponse du demandeur
par Dan
Hier, 12:01
Forum : Excel - VBA
Sujet : Code VBA pour modifier des listes deroulantes
Réponses : 10
Vues : 105

Re: Code VBA pour modifier des listes deroulantes

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
par Dan
Hier, 11:55
Forum : Excel - VBA
Sujet : User form incrémenter données + recherche
Réponses : 9
Vues : 65

Re: User form incrémenter données + recherche

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