copie de colonne suivant leur nom

copie de colonne suivant leur nom - VB/VBA/VBS - Programmation

Marsh Posté le 24-05-2006 à 16:54:38    

bonjour,
je voudrai copier des colonnes en une fois,moi j'arrive a chercher une colonne que je veut copier et la selectionner mais est il possible de selectionner une autre colonne avant de faire la copie?
ainsi j'evite de coller colonne par colonne.
 
j'utilise cet fonction pour rechercher la colonne et la selectionner :
 
Sub rech(chaine As String)

 

On Error Resume Next
 
Set MotTrouvé = Cells.Find(What:=chaine, LookAt:=xlPart)

 

If Not MotTrouvé Is Nothing Then
MotTrouvé.Select
ActiveCell.EntireColumn.Select
Else
    MsgBox ("pas trouvé" )
End If
 
End Sub
 
comment je fait pour relancer cet fonction sans deselectionner l'autre colonne?

Reply

Marsh Posté le 24-05-2006 à 16:54:38   

Reply

Marsh Posté le 25-05-2006 à 06:03:40    

bonjour,
on doit pouvoir passer par un tableau (Array), y stocker la colonne et faire ensuite un :
Range("C:C,E:E,G:G" ).Select
... mais il va falloir fatiguer !
 
De plus, il me semble (mais je n'ai pas testé) qu'il faudra une structure de contrôle pour vérifier que find n'est pas revenu au point de départ, sinon il va tourner en boucle.
 
A+


---------------
roger
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed