Excel Problème Recopie série
Résolu/Fermé
Francine
-
15 mars 2009 à 11:59
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 16 mars 2009 à 19:32
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 16 mars 2009 à 19:32
A voir également:
- Excel Problème Recopie série
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
3 réponses
qmike
Messages postés
1509
Date d'inscription
mardi 19 juillet 2005
Statut
Membre
Dernière intervention
18 juin 2012
594
15 mars 2009 à 12:21
15 mars 2009 à 12:21
bonjour
tu désires ca avec macro ou avec formules ?
Par formule de nombreuses possilités
au plus simple
Sur l'onglet !feuil3
=Feuil1!A1
=Feuil3!A2
=Feuil1!A3
Autre possibilité , récupérer les données via la fonction INDEX
tu désires ca avec macro ou avec formules ?
Par formule de nombreuses possilités
au plus simple
Sur l'onglet !feuil3
=Feuil1!A1
=Feuil3!A2
=Feuil1!A3
Autre possibilité , récupérer les données via la fonction INDEX
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 247
15 mars 2009 à 18:46
15 mars 2009 à 18:46
Bonjour,
Pas bien compris le rapport avec ta demande initiale...
J'espère que tes données sont bien aussi régulières et que les nombres sont bien en numérique.
classeur1.xls
eric
Pas bien compris le rapport avec ta demande initiale...
J'espère que tes données sont bien aussi régulières et que les nombres sont bien en numérique.
classeur1.xls
eric
Bonjour, ériiic
Pouvez-vous expliquer la macro.
Sub MiseEnForme()
Dim derlig As Long, i As Long, j As Long
derlig = [A65536].End(xlUp).Row
For i = 1 To derlig
If IsNumeric(Cells(i, 1).Value) And Not (IsEmpty(Cells(i, 1))) Then
If Cells(i, 1).Offset(3, 0) <> "" Then
Cells(i, 1).Offset(2, 0).Value = Cells(i, 1).Offset(2, 0).Value & " " & Cells(i, 1).Offset(3, 0)
' supprimer la cellule en trop colonne A
Cells(i, 1).Offset(3, 0).Delete Shift:=xlUp
'ou bien supprimer toute la ligne
'Rows(i + 3).EntireRow.Delete
End If
i = i + 3
End If
Next i
End Sub
Merci. :-)
Pouvez-vous expliquer la macro.
Sub MiseEnForme()
Dim derlig As Long, i As Long, j As Long
derlig = [A65536].End(xlUp).Row
For i = 1 To derlig
If IsNumeric(Cells(i, 1).Value) And Not (IsEmpty(Cells(i, 1))) Then
If Cells(i, 1).Offset(3, 0) <> "" Then
Cells(i, 1).Offset(2, 0).Value = Cells(i, 1).Offset(2, 0).Value & " " & Cells(i, 1).Offset(3, 0)
' supprimer la cellule en trop colonne A
Cells(i, 1).Offset(3, 0).Delete Shift:=xlUp
'ou bien supprimer toute la ligne
'Rows(i + 3).EntireRow.Delete
End If
i = i + 3
End If
Next i
End Sub
Merci. :-)
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 247
16 mars 2009 à 19:32
16 mars 2009 à 19:32
Bonsoir,
Qcq commentaires :
Sub MiseEnForme()
Dim derlig As Long, i As Long, j As Long
derlig = [A65536].End(xlUp).Row 'dernière ligne remplie colonne A
For i = 1 To derlig ' pour les cellules colonne A
If IsNumeric(Cells(i, 1).Value) And Not (IsEmpty(Cells(i, 1))) Then ' si la cellule contient un nombre
If Cells(i, 1).Offset(3, 0) <> "" Then ' et si ligne+3 la cellule est # "" (donc la donnée est sur 2 lignes)
' alors concatener ligne+1, un espace et ligne+3
Cells(i, 1).Offset(2, 0).Value = Cells(i, 1).Offset(2, 0).Value & " " & Cells(i, 1).Offset(3, 0)
' supprimer la cellule en trop colonne A
Cells(i, 1).Offset(3, 0).Delete Shift:=xlUp
'ou bien supprimer toute la ligne
'Rows(i + 3).EntireRow.Delete
End If
i = i + 3 ' le prochain numérique doit être 4 lignes plus bas (+3 car il y a le next i ensuite qui fait +1)
End If
Next i ' suivante
End Sub
eric
Qcq commentaires :
Sub MiseEnForme()
Dim derlig As Long, i As Long, j As Long
derlig = [A65536].End(xlUp).Row 'dernière ligne remplie colonne A
For i = 1 To derlig ' pour les cellules colonne A
If IsNumeric(Cells(i, 1).Value) And Not (IsEmpty(Cells(i, 1))) Then ' si la cellule contient un nombre
If Cells(i, 1).Offset(3, 0) <> "" Then ' et si ligne+3 la cellule est # "" (donc la donnée est sur 2 lignes)
' alors concatener ligne+1, un espace et ligne+3
Cells(i, 1).Offset(2, 0).Value = Cells(i, 1).Offset(2, 0).Value & " " & Cells(i, 1).Offset(3, 0)
' supprimer la cellule en trop colonne A
Cells(i, 1).Offset(3, 0).Delete Shift:=xlUp
'ou bien supprimer toute la ligne
'Rows(i + 3).EntireRow.Delete
End If
i = i + 3 ' le prochain numérique doit être 4 lignes plus bas (+3 car il y a le next i ensuite qui fait +1)
End If
Next i ' suivante
End Sub
eric
15 mars 2009 à 14:00
Peut importe , la méthode la plus simple me conviendra très bien.
je souhaite pouvoir l'appliquer sur une longue liste
Sur l'onglet !feuil3
=Feuil1!A1
=Feuil3!A2
=Feuil1!A3
une ligne vide
Donc 4 cellules à étirer ....
Merci
15 mars 2009 à 14:28
il faudrait que tu précises ce que tu veux dans la suite de la série...
eric
15 mars 2009 à 15:37
Je voudrai avoir ça :
http://www.cijoint.fr/cjlink.php?file=cj200903/cijzPpZVnH.xls
Merci