Excel Problème Recopie série
Résolu
Francine
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Un petit souci me tracasse ces derniers temps car j'essaye d'appliquer une Recopie Série incrémentée personnalisée comme celle ci:
Onglet feuille3 :
A1= feuille1!A1
A2= feuille2!A2
A3= feuille1!A3
A4 = ligne vide sans valeur ni formule
Comment dois-je faire...
Merci
Un petit souci me tracasse ces derniers temps car j'essaye d'appliquer une Recopie Série incrémentée personnalisée comme celle ci:
Onglet feuille3 :
A1= feuille1!A1
A2= feuille2!A2
A3= feuille1!A3
A4 = ligne vide sans valeur ni formule
Comment dois-je faire...
Merci
A voir également:
- Excel Problème Recopie série
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
3 réponses
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
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. :-)
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
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
il faudrait que tu précises ce que tu veux dans la suite de la série...
eric
Je voudrai avoir ça :
http://www.cijoint.fr/cjlink.php?file=cj200903/cijzPpZVnH.xls
Merci