Résultats de la recherche

Bonjour, Je me retrouve en face d'une macro qui envoie [verticalement] une série de nombre dans des cellules rangées dans des plages [horizontales] déterminées. For i = 1 To Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row l = 0 c = 0 Do Until r.Offset(l, c).Value = ""...

Bonjour le forum, Je vous présente tous mes voeux de paix, bonheur et santé pour ce nouvel an, bonne année à tous :) L'année a commencé pour moi hier avec ce petit souci de notation que j'arrive pas à régler :) -1. Quand on écrit :Sheets("Feuil1").Cells(2, 4).Value = "Test" On a "Test" en...

Bonjour le forum, Le but de la macro est d’imprimer des zones d’impressions mises dans un « Array » afin de pouvoir sélectionner celles qu’on veut imprimer L’impression doit pouvoir se faire de deux manières au choix soit directement vers l’imprimante, soit exportée en un seul et unique...

Bonsoir le forum, Je bloque sur l'adaptation d'une macro de suppression d'élément d'un array à une suite de 3 ComboBox s'alimentant d'une seule et même liste. Le but est de faire en sorte que les 3 ComboBox (qui affichent une seule et même liste de valeurs) soient exclusifs, en ce sens que si...

Bonjour le forum, J'essaye depuis le début de la semaine de résoudre ce problème mais je ne trouve pas la solution, le principe est d'activer un nombre de TextBox en fonction de la valeur d'un SpinButton En actionnant le SpinButton, le nombre de TextBox activés correspond bien à la valeur...

Bonjour le forum, J'utilise ce code de « Liste Intuitive Form Contenu » du site de Jacques Boisgontier, une véritable mine d'or :) http://boisgontierjacques.free.fr/pages_site/donneesvalidation.htm Private Sub TextBox5_Change() Dim Dico As Object, c, tmp Set Dico =...

Bonsoir le forum, Le code testé sur 40 lignes fonctionne sans encombre, mais rame sans fin avec 1700 lignes Quelqu'un pourrait-il m'indiquer une bonne façon d'alimenter cette ListBox triée alphabétiquement : Private Sub UserForm_Initialize() Dim wsBD As Worksheet, lastCell As Integer, lastRow...

Bonsoir le forum, Quelqu’un pourrait-il me dire ce qui ne va pas dans ce code : For x = 1 To .ListItems.Count If .ListItems(x).ListSubItems(8).Text <> "" And .ListItems(x).ListSubItems(8).Text < Format(Date, "dd/mm/yyyy") Then .ListItems(x).ForeColor = vbRed For k = 1...

Bonjour le forum, Avec ma tête engourdie je bloque sur cette macro : Je voulais juste afficher un message d’alerte au cas où : - Une cellule dans la colonne H égale à « X » est trouvée Et que parallèlement à la même ligne dans la colonne I - La valeur est différente de « Réunion » ou de «...

Bonsoir le forum, J’ai une chaine de 5 caractères de 4 chiffres avec un slash au milieu, par exemple « 11/12 », et je voudrais simplement que lorsque la valeur des 2 derniers chiffres dépasse « 12 », par exemple 13, 14, 15, 16 etc., ces 2 derniers chiffres s‘effacent en laissant les 2...

Bonsoir, Dans une Listview j'affiche les 6 dernières valeurs de la série des 7 valeurs successives à partir de la colonne Q J'essaye de filtrer la ListView sur la base de l'item clické dans une ListBox affichant les premières valeurs des lignes de la ListView, mais je n'arrive pas à mettre...

Bonjour, Ce serait sympa si vous pouviez me dire comment résoudre ce problème J’ai appliqué une mise en forme répondant à peu près à la même logique Mettre en forme la cellule si sa valeur diffère de celle de la cellule correspondante Le problème qui survient est que la mise en forme : Ne...

Bonsoir le forum, J’ai souvent à placer plusieurs ListBox (ou ComboBox) dans le même UserForm, et je voudrais savoir la manière correcte et/ou efficace à adopter devant la multiplicité des dictionnaires et des tableaux temporaires. Dois-je initier un seul dictionnaire et un seul tableau...

Bonsoir le forum, J’ai cherché dans beaucoup de sujets du forum mais je ne suis pas arrivé à trouver la réponse, je cherche à valider une liste déroulante dynamique dans une cellule qui affiche uniquement les valeurs de la colonne A se trouvant dans une ligne dans laquelle en colonne Z il y a...

Bonjour le forum, En général les lignes qui alimentent une listview sont disposées verticalement dans la feuille des données, dans mon cas elles sont disposées horizontalement par franges de 7 Pour l’instant j’arrive à alimenter la listview, mais pour faire le chemin inverse, je le fais...

Bonsoir le forum, Ce serait sympa si quelqu'un pouvait me sortir de cette impasse, le but est d’incrémenter un numéro de bon d’intervention de la manière suivante*: J’ai une BD colonne A avec des dates, et pour les fins de cette incrémentation j’ai pensé utile de créer une colonne, colonne...

Transfert listview vers feuille horizontalement Bonjour le forum, Je vous présente à tous mes meilleurs vœux pour 2014 et bonne année à tous. Est-ce possible que des valeurs de chaque ligne de la Listview s’ajoutent horizontalement par bloc les unes après les autres, au lieu de...

Bonjour à tous, Si quelqu’un pouvait m’aider avec ce classeur des communes, ce serait sympa J’ai un tableau à 4 colonnes : Commune, Département, C.P. et une autre info Il y a près de 38 948 lignes correspondant aux 38 948 communes existantes Une ListBox affichant les communes de la colonne...

Bonjour le forum, Pour faire un filtrage de ListView par des CheckBox, j’ai essayé d’adapter à la ListView le code que Robert (merci à lui) nous a procuré pour une ListBox, mais je ne suis pas arrivé à le faire. Pour la recherche de texte dans la ListView, j’ai utilisé le code de kjin (que...

Bonjour le forum J’ai dans UserForm une procédure du type : Private Sub CheckBox1_Change() ... code CheckBox1 End Sub Private Sub ListBox1_Change() Me.CheckBox1.Value = False ... code ListBox1 End Sub Le souci est que si je sélectionne sur un item de la ListBox1 (ce qui...