Contenu récent par Stéphane_1

Ça fonctionne exactement comme je le voulais. Merci beaucoup.

Bonjour, Comme le titre l'indique je cherche à faire ressortir la ligne sélectionnée d'un tableau, un TCD plus précisément, à l'aide d'une macros ou autre. J'aimerais que la ligne ressorte en changeant la couleur de remplissage, car juste en sélectionnant toutes la ligne du tableau ça limite...

Suite à plus de recherches j'ai résolu le problème en déplaçant les Sub et les Private Sub qu'ils appelaient dans "ThisWorbook". Les Private Sub fonctionnant uniquement grâce à un événement doivent rester dans la feuille VBA dans laquelle ils travaillent, sinon ils ne fonctionne pas Exemple...

Bonjour, Je travaille sur un classeur de 3 feuilles, dont 2 avec des codes VBA. Pris individuellement ces codes ne pose pas de problème, mais quand ils sont réunis dans un seul classeur j'ai la suite d'erreurs que j''ai mis en titre. J'ai essayé de récréer un classeur de zéros sans succès...

C'était encore pire, il ne faisait plus de séparation 😅 Mais comme tu m'as donné la source du problème j'ai pu le régler en changeant les virgule par des point dans mon tableau. Maintenant la séparation fonctionne correctement. Merci pour ton aide !

Bonjour, Je cherche à créer une liste en prenant en compte les informations déjà indiqué. Le code arrive à savoir où se trouve les données qu'il doit prendre dans le tableau, mais pas à prendre les bonnes valeurs. J'ai cherché à savoir quelle valeur il prenait ligne par ligne sans succès...

Bonjour, Merci pour votre code ! Je l'ai repris pour effectuer des recherches dans un inventaire de barre métallique. J'ai essayé de l'adapter mais je me retrouve avec 2 problèmes : la dernière colonne reprend les choix de la précédente (donc E propose les choix de D), et le dictionnaire ne se...

C'est bon, j'ai résolus la boucle infini en commençant par I = 2 et aves Step -1. Ma boucle finale donne ça : For I = 2 To 0 Step -1 If ActiveCell.Offset(I, -1).Value = 0 Or ActiveCell.Offset(I, 0).Value = 0 Then Rows(ActiveCell.Row + I).EntireRow.Delete...

C'est bon, après le To j'ai supprimé I > 2 pour ne laisser que 2. Maintenant je n'ai plus que le problème de la boucle infinie.

Bonjour, Dans mon programme je peut créer jusqu'à 2 lignes à partir d'une, et des valeurs sont modifiées dans les 3 lignes. J'ai demandé au programme de s'assurer que ces valeurs n'étaient pas égale à 0 et de supprimer la ligne si c'était le cas. Sauf qu'après être passé sur les conditions au...