Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2792 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Déplacer une colonne

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Déplacer une colonne

n°1875794
itsgonnabe​legendary
Geek, Chic & Sociable
Posté le 21-04-2009 à 12:02:36  profilanswer
 

Bonjour,
 
J'aimerais chercher sur une ligne un mot clé et couper la colonne pour la coller au début.
 
J'ai pensé à ce code :
 
i = 1
j = 1
If Cells(i, j) = "toto" Then
    Cells(i, j).EntireColumn.Select
    Cells.Cut
    Cells(i, 1).Paste
Else
j = j + 1
End If
 
Mais il ne fonctionne pas. Ayant en horreur les active cells active paste et compagnie, quelle solution ai-je pour garder l'esprit du code ? Ou si vraiment il n'y a pas d'autres solutions que d'utiliser les active.sheet et compagnie, comment puis-je faire svp ?

mood
Publicité
Posté le 21-04-2009 à 12:02:36  profilanswer
 

n°1875805
itsgonnabe​legendary
Geek, Chic & Sociable
Posté le 21-04-2009 à 12:20:53  profilanswer
 

i = 1
j = 1
Do While Cells(i, j) <> ""
If Cells(i, j) = "toto" Then
    Cells(i, j).EntireColumn.Select
    Selection.Cut
    Cells(i, 1).EntireColumn.Select
    ActiveSheet.Paste
    Cells(i, j).EntireColumn.Delete
Else: j = j + 1
End If
Loop
 
GG


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Déplacer une colonne

 

Sujets relatifs
boucle sur colonneLargeur de colonne tableau - css
Se déplacer dans une page web avec le curseur[Access] sous formulaire en feuille de données sans le nom des colonne
Egalité sur clé multi-colonnechanger montants de colonne
[Bash/KSH] Ajouter une colonne dans un fichier...[WriteExcel] Protéger un classeur - 1 colonne
du contenu d'un dataset à la colonne prédéfinis du datagridviewExtraction d'une colonne dans un fichier texte
Plus de sujets relatifs à : Déplacer une colonne


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR