Contenu récent par WUTED

Re : Problème de boucle vba :confused:

Re : Problème de boucle vba La colonne de droite? Je sais pas si c'est ce que tu veux, mais : Range("A1").Offset(0,Range("IV1").End(xlToleft).Column - 1) représente la dernière cellule non-vide à droite sur la ligne 1.

Re : Problème de boucle vba Bonjour adr95, Est-ce que tu pourrais donner un peu plus de précision sur le but de ton fichier et son fonctionnement? Y'a déjà quelques éléments "bizarres" comme : Set r = Range("Famille_conf") ----- If r.Cells(index1 - 1, 1) = Item Qui serait plutôt...

Re : Recherche d'une ligne vide Oui, car cela revient à partir de la cellule "A65536" et remonter toute la feuille, si la cellule est non-vide, la fonction End s'arrête. Y'a un peu plus d'infos ici.

Re : Recherche d'une ligne vide Bonjour perenthian, Range("A65536").End(xlUp).Row Te renvoit un entier correspondant au numéro de la ligne de la dernière cellule non-vide dans le colonne A. Bonne journée.

Re : problèmes avec les boutons d'option Re, Le VBA est sensible à la case, remplace tes "oui" et "non" dans les conditions par "OUI" et "NON" et ça devrait rouler :cool:

Re : Copier des colonnes différentes dans une autre feuille Bonjour Lorine, Remplace ta déclaration de la variable origine par : Dim origine As Worksheet Set origine = ActiveSheet Bonne journée.

Re : problèmes avec les boutons d'option Bonjour, Je ne vois pas d'USF 4 dans ton fichier joint.. :confused:

Re : Macro VBA Afficher-masquer des objets selon conditions Re, Sub AfficherObj() With Sheets("C6-Transport") For Each sh In .Shapes If sh.Name <> refRectange And sh.Name <> refRond Then For i = 13 To .Range("B65536").End(xlUp).Row...

Re : Compter le nombre de lignes d'une sélection Bonjour, Il fait à peu prés la même chose que le End(xlUp) que je t'avais mis. La paramètre de End indique simplement la direction du déplacement. Range("A1").End(xlDown).Row et Range("A65536").End(xlUp) te renverront le plus souvent le...

Re : créer un tableau récapitulatif à partir d'autres docs excel semblable. Bonjour amauryde. Pour le premier point, il suffirait de mettre : Sheets("Feuil1").Range("B65536").End(xlUp).Row + 1 En numéro de ligne à remplir dans le bilan, il s'agit de ta dernière ligne remplie + 1. Pour le...

Re : problèmes avec les boutons d'option Re, Même dans d'autre frames, cela ne devrait pas poser de problèmes, est-ce que tu pourrais mettre ton fichier en pièce jointe? En supprimant des données confidentielles si nécessaire? Il faudrait juste ton Userform et le code associé.

Re : Macro VBA Afficher-masquer des objets selon conditions Bonjour adrian, Comme ça peut-être : Sub AfficherObj() With Sheets("C6-Transport") For Each sh In .Shapes For i = 13 To .Range("B65536").End(xlUp).Row If .Range("B" & i) = sh.Name Then...

Re : ComboBox et heures Bonjour Jidé, Cela fait un peu bricolage, mais tu peux rajouter : Private Sub Intervalle_Change() Intervalle.Value = Format(Intervalle.Value, "hh:mm") End Sub dans le code de ton Usf pour résoudre le problème. Bonne journée.

Re : Ouverture en lecture seule: Problème Ah...tu parles du activeworkbook.close qui est en commentaire dans une couleur qui a fait saigné mes yeux? ;)