OVH Cloud OVH Cloud

Macro pour recopier date en colonne

2 réponses
Avatar
DC
Bonjour à tous.........

Jai une Macro qui en modifiant une valeur dans une colonne, me donne la date
du jour, 3 colonnes plus loin.

J'en est une autre, qui modifie avec un % les dites valeurs, mais pas les
dates.

Aussi j'aimerais pouvoir modifier cette colonne de dates avec un genre (
Copier / Coller ) mais en sauvegardant les blancs ( cellules vides ).
Ou, voir une Macro plus élaborée des modifications de valeurs, qui en même
temps modifirait les dates en préservant les blancs ( cellules vides).

For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & i).Value = "" Then
Else
Range("B" & i).Value = Range("B" & i).Value * 1.02
End If
Next i

Salutations........Merci d'avance.........DC

2 réponses

Avatar
DC
"DC" a écrit dans le message de news:
43075f12$0$3121$
Bonjour à tous.........

Jai un Code Feuille qui en modifiant une valeur dans une colonne, me donne
en même temps, la date du jour, 3 colonnes plus loin.

J'ai une Macro, qui modifie avec un pourcentage les dites valeurs, mais
pas les dates.

Aussi j'aimerais pouvoir modifier cette colonne de dates avec un genre (
Copier / Coller ) mais en sauvegardant les blancs ( cellules vides ).
Ou mieux, voir un Code Feuille plus élaboré des modifications de valeurs
avec pourcentage, qui en même temps modifirait les dates en préservant les
blancs ( cellules vides).


Voici le code feuille actuelle :

For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & i).Value = "" Then
Else
Range("B" & i).Value = Range("B" & i).Value * 1.02
End If
Next i

Salutations........Merci d'avance.........DC






Avatar
michdenis
Voir ton autre poste plus loin


Salutations!


"DC" a écrit dans le message de news: 43075f12$0$3121$
Bonjour à tous.........

Jai une Macro qui en modifiant une valeur dans une colonne, me donne la date
du jour, 3 colonnes plus loin.

J'en est une autre, qui modifie avec un % les dites valeurs, mais pas les
dates.

Aussi j'aimerais pouvoir modifier cette colonne de dates avec un genre (
Copier / Coller ) mais en sauvegardant les blancs ( cellules vides ).
Ou, voir une Macro plus élaborée des modifications de valeurs, qui en même
temps modifirait les dates en préservant les blancs ( cellules vides).

For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & i).Value = "" Then
Else
Range("B" & i).Value = Range("B" & i).Value * 1.02
End If
Next i

Salutations........Merci d'avance.........DC