Bonjour a tous,
Je souhaiterais creer une macro qui va boucler une action sur un range variable.
Mon range peut s'etendre de A3:C4 a A3:AZ65000.
Je n'arrive pas a dire a la macro de boucler jusqu'a la derniere cellule de la derniere colonne remplie (qui peut aller jusqu'a AZ).
Dans ce range variable, il faut que si la cellule est jaune est si la valeur est "X" (Import Sheet) alors on insere dans le deuxieme tableau (Check sheet, identique mais sans les information du premier) une formule.
Voici le debut de la macro que j'ai ecrit:
Malheureusement, de cette facon la macro insere la formule meme dans les colonnes vides.
Je vous joints un petit exemple.
En vous remerciant par avance.
Cordialement,
Delux
Je souhaiterais creer une macro qui va boucler une action sur un range variable.
Mon range peut s'etendre de A3:C4 a A3:AZ65000.
Je n'arrive pas a dire a la macro de boucler jusqu'a la derniere cellule de la derniere colonne remplie (qui peut aller jusqu'a AZ).
Dans ce range variable, il faut que si la cellule est jaune est si la valeur est "X" (Import Sheet) alors on insere dans le deuxieme tableau (Check sheet, identique mais sans les information du premier) une formule.
Voici le debut de la macro que j'ai ecrit:
Code:
Sub DST_Attributes_Check2()
'Check Attributes
Dim mySource As Range
Dim myCible As Range
Dim Cel As Range
Dim Lg As Integer
Application.ScreenUpdating = False
Set mySource = Sheet17.Range("A4.A" & [A65489].End(xlUp).Row)
Set myCible = Sheet18.Range("C4:AZ" & [C65489].End(xlUp).Row)
Lg = 4
myCible.ClearContents
For Each Cel In mySource
If Cel.Value <> "" Then
Sheet18.Range("C" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("D" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("E" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("F" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("G" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("H" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("I" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("J" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("K" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("L" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("M" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("N" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("O" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("P" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("Q" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("R" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("S" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
Sheet18.Range("T" & Lg).Formula = "=IF(VLOOKUP(A" & Cel.Row & ", 'IMPORT SHEET'!$A$4:$AZ$2929, 3, 0)<>"""", 1, 0)"
'ainsi de suite jusqu'a AZ
Lg = Lg + 1
End If
Next Cel
End Sub
Malheureusement, de cette facon la macro insere la formule meme dans les colonnes vides.
Je vous joints un petit exemple.
En vous remerciant par avance.
Cordialement,
Delux