Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 06/05/2007, 17h17   #1
Invité de passage
 
Inscription : mai 2007
Messages : 5
Détails du profil
Informations forums :
Inscription : mai 2007
Messages : 5
Points : 0
Points : 0
Par défaut Comment nommer une ligne ?

Bonjour je cherche la syntaxe pour nommer une ligne. Soyez tolérant parce que je débute.
Voici mon prog :

Code :
1
2
3
4
5
6
7
8
9
10
Dim lastligne As Variant
Dim s As Long
 
lastligne = Sheets("feuil3").Range("A65536").End(xlUp).Row
 
For s = 2 To lastligne
 
 
Sheets("feuil3").Row("s").Select
    Selection.Copy

Je voudrais que coper les lignes 2 jusqu'a lastligne.
A priori la syntaxe sur row("s") n'est pas correct.
Merci pour votre aide.
celtix est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/05/2007, 17h30   #2
Invité de passage
 
Inscription : mai 2007
Messages : 5
Détails du profil
Informations forums :
Inscription : mai 2007
Messages : 5
Points : 0
Points : 0
c'est mieux sans les guillemets........
Hihihiiiiiiiiii.......
celtix est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/05/2007, 17h48   #3
Responsable Visual Basic
 
Avatar de bbil
 
Inscription : juin 2003
Messages : 11 776
Détails du profil
Informations personnelles :
Âge : 45
Localisation : France, Ariège (Midi Pyrénées)

Informations forums :
Inscription : juin 2003
Messages : 11 776
Points : 16 857
Points : 16 857
Envoyer un message via Skype™ à bbil
nommer une ligne ...
bbil est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/05/2007, 22h57   #4
Membre Expert
 
Inscription : novembre 2006
Messages : 1 465
Détails du profil
Informations personnelles :
Âge : 49

Informations forums :
Inscription : novembre 2006
Messages : 1 465
Points : 1 411
Points : 1 411
pas besoin de la nommer
Code :
1
2
3
4
Sub selectligne()
lastligne = Sheets("feuil3").Range("A65536").End(xlUp).Row
Sheets("feuil3").Range("a1:a" & lastligne).EntireRow.Copy
End Sub
alsimbad est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/05/2007, 23h07   #5
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Et
Code :
Sheets("feuil3").Rows(s).Select
ça marche pas
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 10h43.


 
 
 
 
Partenaires

Hébergement Web