Copier/coller sur la colonne suivante quand un mot est reconnu
Résolu/Fermé
julietter
-
14 août 2015 à 11:27
NicolasVBA Messages postés 16 Date d'inscription vendredi 14 août 2015 Statut Membre Dernière intervention 4 septembre 2015 - 14 août 2015 à 14:23
NicolasVBA Messages postés 16 Date d'inscription vendredi 14 août 2015 Statut Membre Dernière intervention 4 septembre 2015 - 14 août 2015 à 14:23
A voir également:
- Copier/coller sur la colonne suivante quand un mot est reconnu
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Cle usb non reconnu - Guide
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
1 réponse
NicolasVBA
Messages postés
16
Date d'inscription
vendredi 14 août 2015
Statut
Membre
Dernière intervention
4 septembre 2015
3
Modifié par NicolasVBA le 14/08/2015 à 14:27
Modifié par NicolasVBA le 14/08/2015 à 14:27
Bonjour,
Voici un code qui fonctionne
La cuillère n'existe pas !
Voici un code qui fonctionne
Sub test()
'Déclaration de la variable qui comptera les colonnes, initialisation à 1
Dim colonne As Integer
colonne = 1
'Déclaration et initialisation de la variable qui renvoit le nombre total de ligne de la colonne A
Dim derlig As Integer
derlig = Range("A" & Rows.Count).End(xlUp).Row
'Un petit renvoi des familles qui permet de relancer la boucle à chaque changement de colonne
debutboucle:
'On boucle sur les ligne, de la seconde à la dernière
For i = 2 To derlig
'Si la cellule contient "Chiffre d'Affaire", alors
If Cells(i, colonne).Value Like "*Chiffre d'Affaire*" Then
'On coupe la plage entre cette cellule et la dernière de la colonne
Range(Cells(i, colonne), Cells(derlig, colonne)).Cut
'On se décale d'une colonne via la variable
colonne = colonne + 1
'On colle sur la première cellule de la colonne suivante
Cells(1, colonne).Select
ActiveSheet.Paste
'Juste pour optimiser la boucle, recalcule de la dernière ligne de la nouvelle colonne créée
derlig = derlig - i + 1
'Et on repart au début de la boucle, qui va maintenant tourner sur la colonne suivante
GoTo debutboucle
End If
Next
End Sub
La cuillère n'existe pas !
14 août 2015 à 14:20
14 août 2015 à 14:23