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.
Bonjour
=NBVAL('1993'!$B$B)-1
ou
Code :
=WorksheetFunction.CountA(Worksheets("feuil1").Range("b:b")) - 1
m'affiche un message d'erreur lorsque je veux les inserer dans la barre de formule de ma cellule d'affichage.
1993 est le nom de ma feuille.
Les 2 sont fausses ?
Re : coper n premieres lignes d'une feuille filtrée
Merci bebere pour ton code ; j'apprecie beaucoup ton aide.
Ne penses tu pas cependant que je suis tout pres de la solution avec un code beaucoup plus simple ?
Quel est ton avis ?
Re : coper n premieres lignes d'une feuille filtrée
La variable $nb que l'utilisateur saisit dans la cellule C19 de la feuille'commande' définit le nombre de lignes de la table qui doivent être copiées dans la feuille du même nom que la variable $feuille.
C'est pour cela je pense que
Code...
Bonjour
Je ne comprends pas pourquoi mon code ne fonctionne pas.
Je voudrais qu'il me selectionne var nb lignes d'une page filtrée pour les coller dans une autre feuille (var feuille).
J'ai un message d'erreur "pas de cellules correspondantes
nb = Sheets("commande").Range("C19")
Dim...
Re : coper n premieres lignes d'une feuille filtrée
Hélas Bebere je n'ai pas un niveau suffisant pour décrypter ton code, de plus je doute qu'il ne complique pas inutilement le mien. Je pense que mon code est tout près de fonctionner mais la ligne en bleu m'apporte un message d'erreur "pas de...
Re : coper n premieres lignes d'une feuille filtrée
Il semblerait que ceci ne permette pas de selectionner les lignes uniquement filtrées
Sheets("test").Range("A2:K" & 1 + nb).Copy
Comment mixer mon script avec cette commande qui devrait le permettre ...
Bonjour
Voici mon code pour filtrer le contenu d'une page selon 2 critères puis trier selon 2 autres critères. La macro fonctionne.
Sub filtri()
'
' trans11 Macro
' Macro enregistrée le 17/11/2006 par IEN60
'
'
'declare var
Dim codest As String
codest =...
Re : copier n lignes d'une table dans une autre table
Oui mes feuilles portent un numéro à 4 chiffres mais je ne peux pas changer le nom de mes feuilles. Y a t'il une soluce ?
J'ai essaye ("feuille") ca marche pas !
Re : copier n lignes d'une table dans une autre table
J'ai trouvé il n'apprécie pas que le nom de la feuille soit un numéro, je n'ai pourtant pas le choix. Ce sont les reférences.
Re : copier n lignes d'une table dans une autre table
Sub transfert()
'
'
nb = Sheets("commande").Range("C19")
feuille = Sheets("commande").Range("C21")
Sheets("test").Range("A2:K" & 1 + nb).Copy Destination:=Sheets(feuille).Range("A65536").End(xlUp).Offset(1, 0)
For n = 1 To nb...
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.