copie speciale formules

[noviceAG]

Bonjour à vous tous,

Je rencontre un probleme que je n'arrive pas a solutionner. Pourriez-vous m'aider svp

 

[SergiO]

Re : copie speciale formules

Bonjour noviceAG, le Forum,

Voici le fichier avec le code modifié.

Bonne journée

 

[noviceAG]

Re : copie speciale formules

bonsoir monsieur SergiO,
Je viens vous remercier pour l'aide inestimable que vous m'avez apporté, c'est exactement ce dont je désirais. excusez mon retard pour vous répondre, mais je n'avais plus de liaison internet. enfin c'est réparé.
merci encore bien chaleureusement à vous et permettez que je vous souhaite un excellent week-end.

 

[noviceAG]

Re : copie speciale formules

Bonjour à vous,
SergiO, que je remercie de nouveau, m'a procurer ces lignes de codes, mais j' souhaiterai avoir des explications sur :

Sub AjoutLign()
'Sélection de la dernière ligne du tableau
Range("A1").CurrentRegion.Rows(Range("A1").CurrentRegion.Rows.Count).Copy
'Ajout de la copie à la suite du tableau
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
'Effacement des données copiées

si vous vouliez bien m'indiquer la signification de ces lignes :

Lig = ActiveCell.Row
col = Range("IV" & Lig).End(xlToRight).Column
Range(Cells(Lig, 1), Cells(Lig, 4)).ClearContents
For Each Cel In Range(Cells(Lig, 1), Cells(Lig, col))
If Cells(4, Cel.Column).Value = "E" Or Cells(4, Cel.Column).Value = "S" Then
Cel.ClearContents
End If
Next Cel
Range("A3").Select
Application.CutCopyMode = False
End Sub

En vous remerciant par avance.

 

[Staple1600]

Re : copie speciale formules

Bonjour

Lig = ActiveCell.Row
Lig= La ligne (row) de la cellule active (ActiveCell)
col = Range("IV" & Lig).End(xlToRight).Column
col = La dernière colonne de la plage de cellule (Range("IV" & Lig) donc 256
Range(Cells(Lig, 1), Cells(Lig, 4)).ClearContents
ClearContents= effacement du contenu des cellules
For Each Cel In Range(Cells(Lig, 1), Cells(Lig, col))
If Cells(4, Cel.Column).Value = "E" Or Cells(4, Cel.Column).Value = "S" Then
Cel.ClearContents
End If
Ici le For each veut dire
Pour toute cellule dans la plage, si la valeur de la cellule est égale à E ou S alors effacement du contenu
Next Cel
Range("A3").Select
Selection de la cellule A3
Application.CutCopyMode = False
Désactivation du mode Copier/Coller
End Sub

 

[noviceAG]

Re : copie speciale formules

bonjour monsieur Staple1600,
je vous remercie d'avoir accepté de me consacrer votre temps ainsi que pour vos explications.
je vous souhaite une très bonne journée.

 

[Staple1600]

Re : copie speciale formules

Re

Vous pouvez me tutoyez monsieur noviceAG

On n'est pas au bureau ici

et je ne suis pas un MOSSSIEUR


(Ca n'enlève cependant rien à votre (ta) politesse et courtoisie...)