Discussion :

[Outiltils]

Bonjour, j'ai des données des colonnes A à la colonne N

En colonne A on a des identifiants qui changent et j'ai donc mis un saut de ligne à chaque changement de valeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Sub InserLignes()
 Dim i As Long
 On Error Resume Next
 For i = Range("B65536").End(xlUp).Row To 2 Step -1
 If Cells(i, 2) <> Cells(i - 1, 2) Then Rows(i).Insert
 Next
 End Sub

Elle fonctionne parfaitement

Ce que je souhaiterais maintenant :

Pour les lignes groupées, c'est à dire qui ont plusieurs fois le même identifiant d'une ligne à l'autre (donc pas de saut de ligne), j'aimerais que la dernière ligne, s'il est écrit "Active" en colonne N, on puis la couper, et la coller une ligne au dessus et deux colonne sur la droite

Exemple de lignes groupées

1 Julien ... INACTIVE
1 Julien ... INACTIVE
1 Julien ... ACTIVE

Je voudrais que la 3ème ligne soit une ligne au dessus et deux colonne sur la droite

Voilà

Je vais le coder en langage "normal" pour vous expliquer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Sub CouperColler
 
 Dim i as Long
 
 If i+1=i ET Cells(i,14)="Active"
    Cells(i, A:N).Copy
    ActiveCell.Offset(-1, 2).Paste
    Supprimer Cells(i, A:N)
 End if
 Se positionner à i+1 sur la colonne A
 End Sub

Voilà, désolé pour ce code de sang mêlé (informaticien-non connaisseur)

Mais si vous pouviez m'aider merci beaucoup !!!!

[riaolle]

Bonjour,
Où est-ce que résides ton problème exactment ?
N'utilises pas ActvieCell, cela ne va t'apporter que des problèmes. Est-ce normal que tu copies les colonnes de A à N, mais qu'ensuite tu ne te décales que de 2 colonnes pour coller ?
Je reprend ton pseudo-code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CouperColler
Boucle for i = ...
If i+1=i ET Cells(i,14)="Active"        <-- ET en anglais = And. Attention i+1 ne peut JAMAIS être égal à i !!!!!
 Cells(i, A:N).Copy  
 ActiveCell.Offset(-1, 2).Paste
 Range("A" & i & ":N" & i).Copy destination:= Range("C" & i-1)     <-- on est d'accord que coller une ligne au-dessus et 2 colonnes à droite, c'est coller en cellule Ci-1 ?
 Supprimer Cells(i, A:N)        <--- supprimer = effacer le contenu ou supprimer la ligne ?
                      Effacer -> ClearContents
                      Supprimer la ligne -> Delete
 End if
Next i
 End Sub

Si supprimer = supprimer la ligne, il faut faire la boucle en sens inverse !
Vois-tu comment adapter ?
Une fois que tu as un début de code, tu peux le poster pour qu'on puisse continuer à t'aider : écris le entre balises code (bouton #) !

[Outiltils]

Salut, merci d'avoir répondu

Bah justement c'est le problème, je galère à coder ça j'y arrive pas ...
J'ai pas de niveau en VBA j'aimerais bien apprendre plus vite mais avec les cours et tout

Et en fait c'est toute la ligne de la colonne A à N que je colle deux colonne à droite, donc de P à AC, et une ligne au dessus

[riaolle]

Est-ce que tu comprends mes commentaires dans le code ?
Tu as déjà fait une grosse partie du travail, il y a plus qu'à traduire tout en VBA et à adapter 2-3 trucs.
Pour apprendre les bases de VBA : http://bidou.developpez.com/article/VBA/

[Outiltils]

Oui oui j'ai bien compris,

Et c'est la ligne entière que je souhaite supprimer

On copie la ligne, on colle deux colonne à droite et une ligne au dessus, et on supprime la ligne qu'on a copié

Après honnêtement j'ai essayé de fournir un travail de codage parce que je voulais pas vous demander de l'aide en mode "voilà mon problème démerdez-vous"

Je n'y connais pas grand chose, coder plus serait difficile ...

Je peux essayer mais ca sera pas glorieux

[Outiltils]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CouperColler
for i = 1 to i+1
If i+1=ActiveCell AND Cells(i,14)="Active"   
 Cells(i, A:N).Copy  
 Range("A" & i & ":N" & i).Copy destination:= Range("P" & i-1)    
 Cells(i, A:N).delete       
 End if
 Next if
 End Sub

Voilà, je viens de tenter un activeCell mais j'y crois pas ahah