Résultats de la recherche

Bonjour à tous J' utiliser un tableau à 3 dimensions ( lignes,colonnes,feuilles) dont voici la 1ère partie du code Sub X Dim Tableau(1 To 10, 1 To 9, 1 To 12) Dim y As Integer, x As Integer, z As Integer For x = 1 To 10 For y = 1 To 9 For z = 1 To 12...

Bonjour à tous A la sélection d'une valeur de ma Combo, j'ai un ralentissement considérable de mon code ci dessous quand je veux imposer un format heure à 2 colonnes de ma ListBox ( dernière boucle du code ci dessous ) N' y t' il pas une solution plus rapide ou ai je fait une erreur ? Je...

Bonjour à tous Je souhaite utiliser une macro pour supprimer des lignes ( dans l'exemple ci joint, 13 lignes) après une cellule de résultat ( somme de 2 colonnes ) Ce tableau est mis à jour et le nombre de lignes avant résultat augmente à chaque mise à jour Mon niveau de VBA étant ce...

Bonjour à tous, Mes faibles connaissances en VBA ne me permettent pas de régler ce problème J'ai une série de valeurs dans les cellules de la colonne A, séparées par des virgules avec une date en 1ère valeur( en format anglais, Année, Mois, Jour). Je veux seulement conserver les lignes...

Bonsoir, Je cherche à simplifier la macro ci dessous Merci infiniment pour votre aide Feuil14.Range("B4:B19").Copy With Feuil27.Range("B2") .PasteSpecial xlPasteValues .PasteSpecial xlPasteFormats End With Feuil14.Range("D4:D19").Copy With...

Excusez moi je me suis trompé de forum Bonjour à tous et merci infiniment pour votre aide J'ai un problème avec ce code qui me donne une erreur à la ligne "en gras" Je choisi des valeurs dans des listbox pour changer la couleur du fond des cellules sélectionnées voici un extrait du...

Bonjour à tous et merci de votre aide éventuelle voici mon code qui me donne une erreur à la ligne "en gras" Feuil27.Activate For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then derligne = Range("R200").End(xlUp).Row + 1 Cells(derligne...