Excel Problème Recopie série
Résolu
Francine
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 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
Configuration: Windows XP Firefox 3.0.7
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 -
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-
- 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. :-)
-
-
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
