J'ai fais une extraction de données (client).
Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite.
La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
en supposant que les données commencent à la ligne 2
=SI(MOD(LIGNE();1.5)=0.5;"MaFormulle";"")
si les données commencent à la ligne 1
=SI(MOD(LIGNE();1.5)=1;"MaFormulle";"")
isabelle
Le 2014-08-19 10:12, enjoY02 a écrit :
Bonjour,
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
bonjour,
en supposant que les données commencent à la ligne 2
=SI(MOD(LIGNE();1.5)=0.5;"MaFormulle";"")
si les données commencent à la ligne 1
=SI(MOD(LIGNE();1.5)=1;"MaFormulle";"")
isabelle
Le 2014-08-19 10:12, enjoY02 a écrit :
Bonjour,
J'ai fais une extraction de données (client).
Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de
suite.
La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous
plait ?
en supposant que les données commencent à la ligne 2
=SI(MOD(LIGNE();1.5)=0.5;"MaFormulle";"")
si les données commencent à la ligne 1
=SI(MOD(LIGNE();1.5)=1;"MaFormulle";"")
isabelle
Le 2014-08-19 10:12, enjoY02 a écrit :
Bonjour,
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
enjoy02
Le mardi 19 Août 2014 à 16:12 par enjoY02 :
Bonjour,
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
Merci, maintenant comment je retire les 2 lignes vides ? Pardon je suis novice :/
Le mardi 19 Août 2014 à 16:12 par enjoY02 :
Bonjour,
J'ai fais une extraction de données (client).
Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi
de suite.
La formule =(&" "&) me permet dans une cellule de regrouper
ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est
possible) s'il vous plait ?
Merci, maintenant comment je retire les 2 lignes vides ?
Pardon je suis novice :/
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
Merci, maintenant comment je retire les 2 lignes vides ? Pardon je suis novice :/
isabelle
il faudrait le faire par vba, es-tu partant ? à quel ligne commence les données ?
isabelle
Le 2014-08-19 11:18, enjoy02 a écrit :
Merci, maintenant comment je retire les 2 lignes vides ? Pardon je suis novice :/
il faudrait le faire par vba, es-tu partant ?
à quel ligne commence les données ?
isabelle
Le 2014-08-19 11:18, enjoy02 a écrit :
Merci, maintenant comment je retire les 2 lignes vides ?
Pardon je suis novice :/
il faudrait le faire par vba, es-tu partant ? à quel ligne commence les données ?
isabelle
Le 2014-08-19 11:18, enjoy02 a écrit :
Merci, maintenant comment je retire les 2 lignes vides ? Pardon je suis novice :/
enjoy02
Le mardi 19 Août 2014 à 16:12 par enjoY02 :
Bonjour,
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
Jamais fait mais qui ne tente rien n'a rien ^^ Les données commencent ligne 1, puis 4, 7 ...
Le mardi 19 Août 2014 à 16:12 par enjoY02 :
Bonjour,
J'ai fais une extraction de données (client).
Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi
de suite.
La formule =(&" "&) me permet dans une cellule de regrouper
ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est
possible) s'il vous plait ?
Jamais fait mais qui ne tente rien n'a rien ^^
Les données commencent ligne 1, puis 4, 7 ...
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
Jamais fait mais qui ne tente rien n'a rien ^^ Les données commencent ligne 1, puis 4, 7 ...
isabelle
ok, quel est la formule à mettre ?
isabelle
Le 2014-08-20 03:22, enjoy02 a écrit :
Jamais fait mais qui ne tente rien n'a rien ^^ Les données commencent ligne 1, puis 4, 7 ...
ok, quel est la formule à mettre ?
isabelle
Le 2014-08-20 03:22, enjoy02 a écrit :
Jamais fait mais qui ne tente rien n'a rien ^^
Les données commencent ligne 1, puis 4, 7 ...
Jamais fait mais qui ne tente rien n'a rien ^^ Les données commencent ligne 1, puis 4, 7 ...
isabelle
voilà,
Sub Macro1() Dim i As Integer For i = 1 To 100 Step 3 Cells(i, 4).Formula = "=1+1" Next End Sub
il ne reste qu'à changer ce qu'il y a entre guillemets par votre formule. la formule s'incrit en colonne D (chiffre 4 de Cells(i, 4)) modifier ce chiffre pour changer de colonne.
isabelle
Le 2014-08-20 09:12, isabelle a écrit :
ok, quel est la formule à mettre ?
isabelle
Le 2014-08-20 03:22, enjoy02 a écrit :
Jamais fait mais qui ne tente rien n'a rien ^^ Les données commencent ligne 1, puis 4, 7 ...
voilà,
Sub Macro1()
Dim i As Integer
For i = 1 To 100 Step 3
Cells(i, 4).Formula = "=1+1"
Next
End Sub
il ne reste qu'à changer ce qu'il y a entre guillemets par votre formule.
la formule s'incrit en colonne D (chiffre 4 de Cells(i, 4))
modifier ce chiffre pour changer de colonne.
isabelle
Le 2014-08-20 09:12, isabelle a écrit :
ok, quel est la formule à mettre ?
isabelle
Le 2014-08-20 03:22, enjoy02 a écrit :
Jamais fait mais qui ne tente rien n'a rien ^^
Les données commencent ligne 1, puis 4, 7 ...
Sub Macro1() Dim i As Integer For i = 1 To 100 Step 3 Cells(i, 4).Formula = "=1+1" Next End Sub
il ne reste qu'à changer ce qu'il y a entre guillemets par votre formule. la formule s'incrit en colonne D (chiffre 4 de Cells(i, 4)) modifier ce chiffre pour changer de colonne.
isabelle
Le 2014-08-20 09:12, isabelle a écrit :
ok, quel est la formule à mettre ?
isabelle
Le 2014-08-20 03:22, enjoy02 a écrit :
Jamais fait mais qui ne tente rien n'a rien ^^ Les données commencent ligne 1, puis 4, 7 ...
enjoy02
Le mardi 19 Août 2014 à 16:12 par enjoY02 :
Bonjour,
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
J'ai fais une extraction de données (client).
Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi
de suite.
La formule =(&" "&) me permet dans une cellule de regrouper
ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est
possible) s'il vous plait ?
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
plutot: Cells(i, 2).Formula = "=CONCATENATE(A" & i & ",A" & i + 1 & ",A" & i + 2 & ")"
isabelle
Le 2014-08-20 10:20, enjoy02 a écrit :
Le mardi 19 Août 2014 à 16:12 par enjoY02 :
Bonjour,
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
plutot:
Cells(i, 2).Formula = "=CONCATENATE(A" & i & ",A" & i + 1 & ",A" & i + 2 & ")"
isabelle
Le 2014-08-20 10:20, enjoy02 a écrit :
Le mardi 19 Août 2014 à 16:12 par enjoY02 :
Bonjour,
J'ai fais une extraction de données (client).
Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi
de suite.
La formule =(&" "&) me permet dans une cellule de regrouper
ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est
possible) s'il vous plait ?
plutot: Cells(i, 2).Formula = "=CONCATENATE(A" & i & ",A" & i + 1 & ",A" & i + 2 & ")"
isabelle
Le 2014-08-20 10:20, enjoy02 a écrit :
Le mardi 19 Août 2014 à 16:12 par enjoY02 :
Bonjour,
J'ai fais une extraction de données (client). Les infos (compte,adresse) sont répartis sur 3 lignes par client ainsi de suite. La formule =(&" "&) me permet dans une cellule de regrouper ces lignes.
Comment répéter cette formule toutes les 3 lignes (si c'est possible) s'il vous plait ?
plutot: Cells(i, 2).Formula = "=CONCATENATE(A" & i & ",A" & i + 1 & ",A" & i + 2 & ")"
isabelle
Jacquouille
Salut Isabelle J'ai pensé cela en vitesse, mais cela bloque sur l'effacement des 2 lignes.... ce sera donc à compléter, mais je n'ai pas le temps maintenant. ------ Sub Regrouper_lignes() derL = [A65536].End(3).Row
For n = 1 To derL Range("B" & n).Value = Range("A" & n) & " - " & Range("A" & n + 1) & " - " & Range("A" & n + 2) Next
bb = derL + 1 'pour pouvoir continuer avec un pas de -3
'bb.Rows.EntireRow.Delete Rows("bb:bb").Delete ' Rows("bb:bb-2").Select 'Selection.Delete Shift:=xlUp 'en fait, il faut effacer les lignes Derl+1 à derL-1 next End Sub
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : lt2d6e$9kq$
plutot: Cells(i, 2).Formula = "=CONCATENATE(A" & i & ",A" & i + 1 & ",A" & i + 2 & ")"
isabelle
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Salut Isabelle
J'ai pensé cela en vitesse, mais cela bloque sur l'effacement des 2
lignes.... ce sera donc à compléter, mais je n'ai pas le temps maintenant.
------
Sub Regrouper_lignes()
derL = [A65536].End(3).Row
For n = 1 To derL
Range("B" & n).Value = Range("A" & n) & " - " & Range("A" & n + 1) & " - " &
Range("A" & n + 2)
Next
bb = derL + 1 'pour pouvoir continuer avec un pas de -3
'bb.Rows.EntireRow.Delete
Rows("bb:bb").Delete
' Rows("bb:bb-2").Select
'Selection.Delete Shift:=xlUp
'en fait, il faut effacer les lignes Derl+1 à derL-1
next
End Sub
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
lt2d6e$9kq$1@speranza.aioe.org...
Salut Isabelle J'ai pensé cela en vitesse, mais cela bloque sur l'effacement des 2 lignes.... ce sera donc à compléter, mais je n'ai pas le temps maintenant. ------ Sub Regrouper_lignes() derL = [A65536].End(3).Row
For n = 1 To derL Range("B" & n).Value = Range("A" & n) & " - " & Range("A" & n + 1) & " - " & Range("A" & n + 2) Next
bb = derL + 1 'pour pouvoir continuer avec un pas de -3
'bb.Rows.EntireRow.Delete Rows("bb:bb").Delete ' Rows("bb:bb-2").Select 'Selection.Delete Shift:=xlUp 'en fait, il faut effacer les lignes Derl+1 à derL-1 next End Sub
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : lt2d6e$9kq$
