Contenu récent par fredoalex

  1. F

    VBA erreur d'execution 13 incompatibilité de type

    Bonjour Pierrejean, ça fonctionne merci beaucoup. Par contre quelle est la différence avec mon code ? je n'en vois pas enfaite
  2. F

    VBA erreur d'execution 13 incompatibilité de type

    Bonjour à tous, J'ai créé un code VBA qui dois me compte le nombre de ligne dont la date est inférieur à aujourd'hui. Malheureusement j'ai un message d'erreur 13 incompatibilité de type. Je suppose que VBA ne comprend pas que mes Cellules A1 à A20 sont au format date mais je ne sais pas...
  3. F

    VBA erreur d'excution 424

    Bonjour Dranreb ça fonctionne super merci beaucoup :)
  4. F

    VBA erreur d'excution 424

    Bonjour à tous, J'ai une erreur d’exécution 424 et je ne comprend pas d'où viens le problème. Voici mon code Sub Valider_Click() Num_cde = TextBox2.Value trouve = Worksheets("Demandes").Range("C1:C20").Find(what:=Num_cde, LookIn:=xlValues, LookAt:=xlPart).Row MsgBox trouve If...
  5. F

    vba: Fontion or et and dans fonction IF

    Re : vba: Fontion or et and dans fonction IF Bonjour à tous, enfaite la difference entre la partie en Bleu et en Rouge c'est uniquement que dans la partie Bleu je met le signe <> et dans le rouge le signe = . Mais lorseque je met "=" VBA me trouve bien les lignes correspondant aux critères...
  6. F

    vba: Fontion or et and dans fonction IF

    Bonjour à tous, j'ai un petit soucis avec mon code VBA ci dessous. En effet, dans un premier temps, nous code dois remprendre les lignes sous conditions et nottament si les cellules ne sont pas egale à "LICFR" ou "CHAFR" ou "FONNL" ou "CMCFR" ou "BOCFR" (lignes de code en bleu)...
  7. F

    Continuer une boucle For Next sur d'autres colonnes

    Re : Continuer une boucle For Next sur d'autres colonnes Merci Vgendron ton code fonctionne parfaitement bien. Merci beaucoup :) Juste pour ma culture comment fontionne la Partie "premièreserie" j'ai un peu de mal à comprendre. En tout cas merci beaucoup tu me sauve la vie :D
  8. F

    Continuer une boucle For Next sur d'autres colonnes

    Re : Continuer une boucle For Next sur d'autres colonnes Bonjour, Mon code est complet (j 'ai juste oublie le end Sub à la fin). l'onglet FSR n'a aucune importance puisque c'est juste une base de donnee dans laquelle je vais chercher des infos. je souhaiterais juste savoir comment...
  9. F

    Continuer une boucle For Next sur d'autres colonnes

    Bonjour à tous, Mon fichier va chercher des informations d'un onglet ( FSR) pour les coller dans un onglet (Presort saisie) en colonnes A24 à S63 puis doit continuer en colonne T24 à T63 j'arrives a coller mes infos jusqu'a S63 mais ensuite comment changer de colonnes ? Voici mon Code...
  10. F

    Matrice de distances - Google Maps

    Re : Matrice de distances - Google Maps Bonjour à tous, j'ai apporté une amelioration à l'outil en ajoutant la possibilitée d'ouvrir une page internet google map avec le trajet souhaite par macro avec ce code Sub Visualiser() Dim Depart As String Dim Arrivee As String If...
  11. F

    Erreur 1004 dans VBA

    Re : Erreur 1004 dans VBA bonjour mutzik je n'arrives pas à faire ce que je veux avec l'enregistreur de macro car apparement mes cellules fusionnées sont pas la même taille
  12. F

    Erreur 1004 dans VBA

    bonjour à tous, j'ai une erreur d'execution 1004 : erreur définie par l'application ou par l'objet les lignes de mon code VBA concernés sont celle ci dessous. fr = Range("O" & Rows.Count).End(xlUp).Row Range("r5:ac5").Select Selection.AutoFill Destination:=Range("R5:AC" & fr) savez...
  13. F

    code concatenation deux colonnes

    Re : code concatenation deux colonnes Merci Steven c'est exactement ce dont j'ai besoins
  14. F

    code concatenation deux colonnes

    Re : code concatenation deux colonnes Bonjour, malheureusement ce n'est pas que je cherche, je cherche à obtenir Voiture Renault, Voiture Peugeto, Voiture fiat, Voiture porche, scooter renaul,scooter peugeot...
  15. F

    code concatenation deux colonnes

    Bonjour à tous, je souhaite faire une concatenation des deux colonnes mais je n y arrives pas. Voici mon code ainsi que mon fichier ci joint Sub aller() Dim colonne As Variant, ligne As Variant, colonnea As Variant, ligneb As Variant Dim nb_ligne As Variant, y As Variant, z As Variant...