Bonsoir,
Voici une macro récuperer sur internet!
J'essaye de l'adapter mais pas simple
Voici ce que je cherche à faire :
Si la cellule de la colonne "C" est vide alors copie la formule "DEBIT" dans la colonne "11" sinon rien
et si la ligne est vide alors rien
Merci
Cazinos
Option Explicit
-----------------------------------------------------------------------------------
Sub Copier()
'selection feuille "FEUILLE"
Sheets("FEUILLE").Select
On Error Resume Next
Dim Cellule As Range
For Each Cellule In Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
"si la cellule de la colonne "C" égal rien alors copier formule "DEBIT"
If Cellule.Offset(1, 0) = "" Then
Range("A2:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Offset(, 11).Formula = [DEBIT].Formula
End If
Next
End Sub
Voici une macro récuperer sur internet!
J'essaye de l'adapter mais pas simple
Voici ce que je cherche à faire :
Si la cellule de la colonne "C" est vide alors copie la formule "DEBIT" dans la colonne "11" sinon rien
et si la ligne est vide alors rien
Merci
Cazinos
Option Explicit
-----------------------------------------------------------------------------------
Sub Copier()
'selection feuille "FEUILLE"
Sheets("FEUILLE").Select
On Error Resume Next
Dim Cellule As Range
For Each Cellule In Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
"si la cellule de la colonne "C" égal rien alors copier formule "DEBIT"
If Cellule.Offset(1, 0) = "" Then
Range("A2:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Offset(, 11).Formula = [DEBIT].Formula
End If
Next
End Sub
