Macro en boucle
Fermé
newparisian
-
20 févr. 2014 à 22:15
Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 - 21 févr. 2014 à 23:12
Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 - 21 févr. 2014 à 23:12
A voir également:
- Macro en boucle
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
1 réponse
Le Pingou
Messages postés
12225
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 décembre 2024
1 452
21 févr. 2014 à 23:12
21 févr. 2014 à 23:12
Bonjour,
Essayer avec le code qui suit en admettant les données commence en A1 :B1 et la périodicité « Interview Date « est fixe pour une lecture.
La procédure :
Salutations.
Le Pingou
Essayer avec le code qui suit en admettant les données commence en A1 :B1 et la périodicité « Interview Date « est fixe pour une lecture.
La procédure :
Sub transposedata()--
Dim li As Integer, data()
Set shda = Sheets("DataSet1")
Set shf1 = Sheets("Feuil1")
tit = 1
For Each da In shda.Range("A1:a" & shda.Cells(Rows.Count, 1).End(xlUp).Row)
If da = "Interview Date" Then
pas = pas + 1
li = li + 1
c = 0
ReDim Preserve data(0 To 4, 0 To li)
If pas <= tit Then
data(c, li - 1) = da.Value: data(c, li) = da.Offset(0, 1).Value
Else
data(c, li) = da.Offset(0, 1).Value
End If
c = c + 1
ElseIf pas <= tit Then
data(c, li - 1) = da.Value: data(c, li) = da.Offset(0, 1).Value
c = c + 1
Else
data(c, li) = da.Offset(0, 1).Value
c = c + 1
End If
Next da
shf1.Range("a1:e" & Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents
shf1.Range("a1:e" & UBound(data, 2) + 1) = Application.Transpose(data)
Set shda = Nothing
Set shf1 = Nothing
End Sub
Salutations.
Le Pingou