[Excel] appeler une cellule sur 4
Damien
-
LexMarc -
LexMarc -
Bonjour,
dans le cadre d'un projet auquel je participe, j'ai besoin de trier des données qui se trouvent dans un fichier excel.
Celles-ci sont située dasn un colonne située dans une autre feuille que celle que je dois utiliser. Aussi, j'utilise la fonction : ='RSPM & TSPM'!N4 pour appeler la cellule NA de la feuille "RSPM & TSPM".
Malheureusement, il s'agit de tri de données, et pour cela, je ne dois prendre que les cases multiples de 4, c'est à dire N4,N8,N12,etc.
Comment puis-je faire, pour appeler seulement, ces cases, quand j'essaye de dérouler les cellules que j'ai déjà implémenter, Excel se perd, et compte n'importe comment...
Merci d'avance pour voos réponses
dans le cadre d'un projet auquel je participe, j'ai besoin de trier des données qui se trouvent dans un fichier excel.
Celles-ci sont située dasn un colonne située dans une autre feuille que celle que je dois utiliser. Aussi, j'utilise la fonction : ='RSPM & TSPM'!N4 pour appeler la cellule NA de la feuille "RSPM & TSPM".
Malheureusement, il s'agit de tri de données, et pour cela, je ne dois prendre que les cases multiples de 4, c'est à dire N4,N8,N12,etc.
Comment puis-je faire, pour appeler seulement, ces cases, quand j'essaye de dérouler les cellules que j'ai déjà implémenter, Excel se perd, et compte n'importe comment...
Merci d'avance pour voos réponses
Configuration: Windows XP Firefox 2.0.0.4
2 réponses
-
Slt Damien,
J'ai le même problème, je dispose des lignes-colonnes de mes cellules et j'aimerai récupérer le contenu de mes cellules. EX:
NOM 1 (A1)
PRENOM 1 (A2)
NUMERO 1 (A3)
NOM 2 (A4)
PRENOM 2 (A5)
NUMERO 2 (A6)
et moi ce que je veux :
NOM 1 NOM2 (A1) (A4)
PRENOM 1 PRENOM 2 (A2) (A5)
NUM 1 NUM 2 (A3) (A6)
Mais je n'arrive pas à reprendre le contenu d'une cellule dont je connais sa ligne et colonne ! C'est con car j'ai fait tous le taff !-
Bonjour
POUR GREG
Les données étant placées en A:A
Sub Macro1()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 20
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "=RC[-1]&"" ""&R[3]C[-1]"
Range("B" & i + 1).Select
ActiveCell.FormulaR1C1 = "=RC[-1]&"" ""&R[3]C[-1]"
Range("B" & i + 2).Select
ActiveCell.FormulaR1C1 = "=RC[-1]&"" ""&R[3]C[-1]"
Range("B4").Select
Next i
Columns("B:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub
@+ LM
-
-
Bonjour,
Une petite proposition avec ce code (a placer dans un bouton)
Sub UneSurQuatre()
Application.ScreenUpdating = False
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=IF(AND(R[-1]C<4,RC[1]<>""""),R[-1]C+1,1)"
Range("A3").Select
Selection.AutoFill Destination:=Range("A3:A1000")
Columns("A:A").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="4"
Application.ScreenUpdating = True
End Sub
@+ LM
