A B C D E F G H I J K
Joe Bedon adresse 12 54 42 50 =20
Guy balou adresse 21 12 32 56 25 52 39 99
al Lele adresse 24 78 89 98 45 88 81 65
Joe ball adresse 21 25 55 65 =20
J'aimerais que LORSQU'IL Y A DES DONN=C9ES dans les cellules=20
H I J K qu'elles soient copi=E9es sur la ligne suivante mais=20
dans les colonnes D E F G et r=E9inscrire les informations=20
des colonne A B C. Voici le fichier final.
A B C D E F G H I J K
Joe Bedon adresse 12 54 42 50 =20
Guy balou adresse 21 12 32 56
Guy balou adresse 25 52 39 99
al Lele adresse 24 78 89 98 =20
al Lele adresse 45 88 81 65
Joe ball adresse 21 25 55 65 =20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Jf,
voici un exemple,
Sub Macro1() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("G" & i) <> 0 Then Rows(i).Insert Shift:=xlDown Range("A" & i + 1 & ":B" & i + 1).Copy Destination:=Range("A" & i) Range("G" & i + 1 & ":J" & i + 1).Cut Destination:=Range("C" & i) Application.CutCopyMode = False End If Next End Sub
isabelle
Bonjour, J'ai un fichier comme suit
A B C D E F G H I J K Joe Bedon adresse 12 54 42 50 Guy balou adresse 21 12 32 56 25 52 39 99 al Lele adresse 24 78 89 98 45 88 81 65 Joe ball adresse 21 25 55 65
J'aimerais que LORSQU'IL Y A DES DONNÉES dans les cellules H I J K qu'elles soient copiées sur la ligne suivante mais dans les colonnes D E F G et réinscrire les informations des colonne A B C. Voici le fichier final. A B C D E F G H I J K Joe Bedon adresse 12 54 42 50 Guy balou adresse 21 12 32 56 Guy balou adresse 25 52 39 99 al Lele adresse 24 78 89 98 al Lele adresse 45 88 81 65 Joe ball adresse 21 25 55 65
Windows 2000 Excel 2002
Merci pour votre aide!
bonjour Jf,
voici un exemple,
Sub Macro1()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("G" & i) <> 0 Then
Rows(i).Insert Shift:=xlDown
Range("A" & i + 1 & ":B" & i + 1).Copy Destination:=Range("A" & i)
Range("G" & i + 1 & ":J" & i + 1).Cut Destination:=Range("C" & i)
Application.CutCopyMode = False
End If
Next
End Sub
isabelle
Bonjour,
J'ai un fichier comme suit
A B C D E F G H I J K
Joe Bedon adresse 12 54 42 50
Guy balou adresse 21 12 32 56 25 52 39 99
al Lele adresse 24 78 89 98 45 88 81 65
Joe ball adresse 21 25 55 65
J'aimerais que LORSQU'IL Y A DES DONNÉES dans les cellules
H I J K qu'elles soient copiées sur la ligne suivante mais
dans les colonnes D E F G et réinscrire les informations
des colonne A B C. Voici le fichier final.
A B C D E F G H I J K
Joe Bedon adresse 12 54 42 50
Guy balou adresse 21 12 32 56
Guy balou adresse 25 52 39 99
al Lele adresse 24 78 89 98
al Lele adresse 45 88 81 65
Joe ball adresse 21 25 55 65
Sub Macro1() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("G" & i) <> 0 Then Rows(i).Insert Shift:=xlDown Range("A" & i + 1 & ":B" & i + 1).Copy Destination:=Range("A" & i) Range("G" & i + 1 & ":J" & i + 1).Cut Destination:=Range("C" & i) Application.CutCopyMode = False End If Next End Sub
isabelle
Bonjour, J'ai un fichier comme suit
A B C D E F G H I J K Joe Bedon adresse 12 54 42 50 Guy balou adresse 21 12 32 56 25 52 39 99 al Lele adresse 24 78 89 98 45 88 81 65 Joe ball adresse 21 25 55 65
J'aimerais que LORSQU'IL Y A DES DONNÉES dans les cellules H I J K qu'elles soient copiées sur la ligne suivante mais dans les colonnes D E F G et réinscrire les informations des colonne A B C. Voici le fichier final. A B C D E F G H I J K Joe Bedon adresse 12 54 42 50 Guy balou adresse 21 12 32 56 Guy balou adresse 25 52 39 99 al Lele adresse 24 78 89 98 al Lele adresse 45 88 81 65 Joe ball adresse 21 25 55 65
