Contenu récent par Mattharm

  1. M

    Range dans Array

    Re : Range dans Array Oups ! Evidemment. Merci beaucoup à tous les 2 ;):D:cool:
  2. M

    Range dans Array

    Re : Range dans Array Paritec, Sub test() Dim Tableau As Variant Tableau = Range("A2:D2") MsgBox Tableau(1) End Sub Il me refuse cependant mon MsgBox.... ?? :confused:
  3. M

    Range dans Array

    Bonsoir à tous, Est il possible de réaliser en une ligne de code : Tableau = Sheets("Feuil1").Range("A2:E2") (Avec Tableau un array des valeurs). Ou bien il faut boucler de la colonne A à E avec un FOR et entrer les valeurs une par une. Merci Mattharm.
  4. M

    Sélection ligne.

    Re : Sélection ligne. If Selection.Count >= 1 and Selection.Count < Columns.Count Then Selection.EntireRow.Interior.ColorIndex = 6 Pour globaliser peut être ? ;)
  5. M

    Sélection ligne.

    Re : Sélection ligne. Héhéhéhé On peut se tutoyer ? ;) Le client n'est pas roi, le client exprimait en français le code désiré ;) Tu as une meilleure solution ?
  6. M

    Sélection ligne.

    Re : Sélection ligne. Alors pourquoi utilisez vous des Select ? ;)
  7. M

    code VBA execution trop longue

    Re : code VBA execution trop longue Et bien j'ai oublié les guillemets.... ;) TOTAL_LIGNE = Sheets(Ma_Feuille).Range("A" & DEPART_LIGNE).End(xldown).Row
  8. M

    code VBA execution trop longue

    Re : code VBA execution trop longue Salut Pour connaître la dernière ligne (et donc le nombre de ligne) : Function TOTAL_LIGNE(Ma_Feuille As String, DEPART_LIGNE As Integer) As Integer 'Compter le nombre de ligne dans le tableau Donnees TOTAL_LIGNE = Sheets(Ma_Feuille).Range(A &...
  9. M

    Sélection ligne.

    Bonsoir, J'aimerais réaliser un code vba réalisant cela : If Selection = Une ligne entière then Selection.Interior.Colorindex = 6 End If If Selection = Une cellule, ou plusieurs cellules then Sélectionner la ligne correspondante Selection.Interior.Colorindex = 6 End...
  10. M

    Syntaxe : appartenance et calcul

    Re : Syntaxe : appartenance et calcul Bonjour, Merci à tous pour votre aide. J'ai fait un mix des réponses pour sortir une fonction vba qui va bien. La formule vba augmente grandement la vitesse de mise à jour comparée à la formule excel en cellule. ;) Mattharm.
  11. M

    Syntaxe : appartenance et calcul

    Re : Syntaxe : appartenance et calcul Bonsoir, Ok pour la solution de Excel-Lent. Je n'avais pas pensé à la boucle incrémantante. Par contre Tibo.... :( j'ai un peu plus de mal à suivre : 1) On cherche le min & le max entre la colonne A et B 2) On enlève la SOMMEPROD de je sais pas quoi... ^^...
  12. M

    Syntaxe : appartenance et calcul

    Re : Syntaxe : appartenance et calcul Bonsoir Excel-lent, Ci joint le fichier xls. J'aimerais développer une solution vba. Je me débrouille pour l'intégration dans mon code. Il me manque juste la notion pour le faire ;) Merci pour le coup de main. Mattharm.
  13. M

    Syntaxe : appartenance et calcul

    Bonjour à tous, J'aurais besoin de comparer deux chiffres par une soustraction en prenant en compte une intersection de valeurs. Par exemple la série 10,11,12 --> à exclure. Si j'ai A =14 et B = 7 j'aimerais que A-B me retourne 4. J'aimerais donc développer une boucle de type : if...
  14. M

    Conflit avec application.volatile

    Re : Conflit avec application.volatile Bonsoir kjin, J'ai mis cela dans mon exemple pour montrer le problème. La variable de ma fonction est le nom de la feuille. A fortiori le nom ne change pas et mon problème demeure... Merci Mattharm
  15. M

    Conflit avec application.volatile

    Bonjour à tous, On est encore en janvier donc je vous souhaite à tous une bonne année 2010 ! Voilà je développe une application et j'ai un petit conflit entre 2 ptits trucs : - D'un côté j'ai une cellule contenant une validation des données et une liste déroulante. Lors du changement...