Contenu récent par Aldonanou

  1. A

    XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint

    Bonjour, J'effectue une boucle pour aller récupérer les données de l'onglet Archives du fichier "Formulaire de déclaration des ventes.xlsm" pour 10 sous-répertoires et cela fonctionnait très bien. Cependant, il est maintenant nécessaire que j'adapte mon code pour effectuer le même travail sous...
  2. A

    XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox

    Bonjour, Voici la solution que j'ai trouvé en corrigeant les lignes : Sheets("Synthèse").Cells(Ligne, 4) = ListBox_categorie.List(ListBox_categorie.ListIndex) Sheets("Synthèse").Cells(Ligne, 5) = ListBox_marche.List(ListBox_marche.ListIndex)...
  3. A

    XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox

    Bonjour ok je regarde demain. Merci
  4. A

    XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox

    Bonjour, Je dois réaliser une étude de fréquentation. J'ai préparé un formulaire que j'ai réussi à coder, à l'exception de la récupération des informations des comboBox. D'habitude j'utilise des listes déroulantes et c'est beaucoup plus simple. Lorsque je valide (pour l'enregistrement dans...
  5. A

    XL 2016 Regroupement dates sur TCD

    Bonjour, Merci de votre retour. Grâce à craig974, j'ai trouvé la solution et réussi à adapter mon programme en conséquence. Pour ceux que cela pourrait intéresser voici la solution qui fonctionne. La der lRow = 1 ptCount = 1 ' On créé le TCD sur le même onglet...
  6. A

    XL 2016 Regroupement dates sur TCD

    Bonjour, Est-ce que quelqu'un pourrait m'aider. Merci
  7. A

    XL 2016 Regroupement dates sur TCD

    Bonjour, J'aimerai grouper des dates dans un TCD mais cela ne fonctionne pas. J'ai déclaré les deux variables DateSeldeb et DateSelFin qui changement en fonction des périodes de l'année. J'ai essayé plusieurs "regroupement" il doit certainement manquer quelque chose. Le message d'erreur est...
  8. A

    XL 2016 Erreur d'exécution 13 Incompatibilité de type

    Bonjour, je n'y ai pas pensé et comme l'autre code fonctionne je me suis arrêtée là. Mais je testerai. Merci
  9. A

    XL 2016 Erreur d'exécution 13 Incompatibilité de type

    Re, j'ai corrigé mon programme en mettant : Function getcodeReponse(ByVal chaine As String) As Boolean Dim tempArray() As String Dim taille As Integer tempArray = Split(chaine, ";") taille = UBound(tempArray) If IsEmpty(tempArray(7)) Then GoTo suite End If...
  10. A

    XL 2016 Erreur d'exécution 13 Incompatibilité de type

    Ok je prépare cela et reviens vers vous. Merci
  11. A

    XL 2016 Erreur d'exécution 13 Incompatibilité de type

    Bonjour, Cela ne fonctionne pas, la valeur de l'encaisse n'est plus sélectionnée. Dommage il va falloir que je cherche autre chose. Merci
  12. A

    XL 2016 Erreur d'exécution 13 Incompatibilité de type

    Re, Je ne peux pas utiliser cette possibilité (je pense) car sinon je ne peux plus appliquer les conditions ci-dessous : Mon code réponse doit être à zéro et mon code Traitement doit être différent de vide et de traitement pour que je puisse récupérer la valeur de l'encaisse. Le code réponse...
  13. A

    XL 2016 Erreur d'exécution 13 Incompatibilité de type

    Bonjour, Merci de votre retour Dranreb. En fait, la valeur dans le fichier csv est "00" raison pour laquelle je le convertis. Merci
  14. A

    XL 2016 Erreur d'exécution 13 Incompatibilité de type

    Bonjour, Dans le cadre du traitement de données j’avais réalisé un programme me permettant de récupérer une encaisse si le code réponse était égal à 0. Or il s’avère que le fournisseur a modifié son fichier et j’ai maintenant une erreur d’exécution ‘13’ Incompatibilité de type car dans ma...
  15. A

    XL 2016 Boucle

    Bonjour Cp4, Cela fonctionne à merveille chez moi. je testerai lundi au travail. Merci beaucoup Cordialement Aldonanou