head_tatty
XLDnaute Nouveau
Bonsoir à tous,
J' ai une formule macro dans une cellule sur une feuille excel. La voici :
J' aimerais l' incrémenter de sorte que la première cellule issue de cette incrémentation se présente ainsi ( et donc que seul ce qui est en rouge soit modifié ):
puis A3 B3 C3 D3 E3 F3
puis A4 B4 C4 D4 E4 F4
etc...
Voici les données contenues dans chaque cellule :
en A1 : U1
en B1 : V2
en C1 : W3
en D1 : X4
en E1 : ("1950", "1976", "1880", "2500", "1600")
en F1 : Z6
Donc voici ce qui doit apparaitre dans ma première cellule du début :
Cordialement,
J' ai une formule macro dans une cellule sur une feuille excel. La voici :
Code:
Sheets("A").Select
Range("[COLOR="red"]A1[/COLOR]:[COLOR="Red"]B1[/COLOR]").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("N").Select
Range("[COLOR="red"]C1[/COLOR]:[COLOR="red"]D1[/COLOR]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("U1").Select
ActiveSheet.Paste
Range("A1").Select
Tableau = Array[COLOR="red"]E1[/COLOR]
For I = 0 To 19
Cells.Replace What:=Tableau(I), Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Next I
Sheets("B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("C").Select
Range("[COLOR="red"]F1[/COLOR]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseJ' aimerais l' incrémenter de sorte que la première cellule issue de cette incrémentation se présente ainsi ( et donc que seul ce qui est en rouge soit modifié ):
Code:
Sheets("A").Select
Range("[COLOR="red"]A2[/COLOR]:[COLOR="Red"]B2[/COLOR]").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("N").Select
Range("[COLOR="red"]C2[/COLOR]:[COLOR="red"]D2[/COLOR]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("U1").Select
ActiveSheet.Paste
Range("A1").Select
Tableau = Array[COLOR="red"]E2[/COLOR]
For I = 0 To 19
Cells.Replace What:=Tableau(I), Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Next I
Sheets("B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("C").Select
Range("[COLOR="red"]F2[/COLOR]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Falsepuis A3 B3 C3 D3 E3 F3
puis A4 B4 C4 D4 E4 F4
etc...
Voici les données contenues dans chaque cellule :
en A1 : U1
en B1 : V2
en C1 : W3
en D1 : X4
en E1 : ("1950", "1976", "1880", "2500", "1600")
en F1 : Z6
Donc voici ce qui doit apparaitre dans ma première cellule du début :
Code:
Sheets("A").Select
Range("[COLOR="red"]U1[/COLOR]:[COLOR="Red"]V2[/COLOR]").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("N").Select
Range("[COLOR="red"]W3[/COLOR]:[COLOR="red"]X4[/COLOR]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("U1").Select
ActiveSheet.Paste
Range("A1").Select
Tableau = Array[COLOR="red"]("1950", "1976", "1880", "2500", "1600")
[/COLOR]
For I = 0 To 19
Cells.Replace What:=Tableau(I), Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
Next I
Sheets("B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("C").Select
Range("[COLOR="red"]Z6[/COLOR]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseCordialement,
Dernière édition: