Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 : 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? ;)
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.