Selection precise d une colonne sous vba
Fermé
spirit44
Messages postés
5
Date d'inscription
mardi 10 juillet 2007
Statut
Membre
Dernière intervention
3 février 2008
-
10 juil. 2007 à 11:09
spirit44 Messages postés 5 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 3 février 2008 - 10 juil. 2007 à 16:00
spirit44 Messages postés 5 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 3 février 2008 - 10 juil. 2007 à 16:00
bonjour je suis stagiaire et on m a mit a faire du vba je souhaiterai rechercher une colonne et la selectionner en fonction de ce qui est ecrit sur la premiere ligne 1, puis copier cette colonne trouvé et la coller sur une feuille 2
et faire de meme pour une ligne en fonction de ce qui est ecrit sur la premiere colonne.
j ai beau chercher n arrive pas a trouver:(
si vous pouviez m aider sinon je vais avoir un mauvais commentaire sur mon rapport
merci d avance !
et faire de meme pour une ligne en fonction de ce qui est ecrit sur la premiere colonne.
j ai beau chercher n arrive pas a trouver:(
si vous pouviez m aider sinon je vais avoir un mauvais commentaire sur mon rapport
merci d avance !
A voir également:
- Selection precise d une colonne sous vba
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Figer une colonne excel - Guide
1 réponse
Utilisateur anonyme
10 juil. 2007 à 13:03
10 juil. 2007 à 13:03
Bonjour,
Voici un exemple pour une colonne, en suposant que la lettre de la colonne se trou en [A1].
si tu saisie bien, pour la ligne c'est essentiellement la même chose,
quelques objets a modifier !
Lupin
Voici un exemple pour une colonne, en suposant que la lettre de la colonne se trou en [A1].
Option Explicit ' Sub Deplace_Colonne_Ligne() Dim objCol As String Application.ScreenUpdating = False objCol = Range("A1").Value Range(objCol & "1").EntireColumn.Select Selection.Copy Sheets("Feuil2").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveCell.Offset(1, 0).Select Sheets("Feuil1").Select Range("A1").Select Application.ScreenUpdating = True End Sub '
si tu saisie bien, pour la ligne c'est essentiellement la même chose,
quelques objets a modifier !
Lupin
10 juil. 2007 à 16:00