Forums XLPages

Tous les messages (ascal44)

« 1 2
Bug avec code VBA lors d'une copie
#11
ascal44
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 29-05-2008 21h57
Rebonsoir, voilà lorsque je change de feuille j'ai une macro qui recopie certaines valeures sur cette feuille.
Or une erreure se produit à ce moment là : ' Erreur d'exécutione '13' incompatibilité de type
?>

Option Explicit
Dim MaValeur As Variant
Private Cell As Variant
Private Cel As Variant
Private x As Variant
Private y As Variant

Private flag As Boolean





Private Sub commandbutton1_Click()
Sheets("VERT").Visible = True
Macro24 'macro de copie de certaines valeures dans la feuilles "VERT"

End Sub





'copie N° remplacé à coté
Private Sub Worksheet_Change(ByVal Target As Range)



If flag Then Exit Sub
flag = True
If flag And Not Intersect(Target, Range("C6:C26,H6:H30,M6:M37,R6:R39")) Is Nothing Then
    Target.Offset(0, 1) = MaValeur
  End If


flag = False


End Sub


'copie N° remplacé à coté
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If flag Then Exit Sub
flag = True

 If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
         For Each Cell In Sheets("PARC").Range("C7:C300")
           If Target.Value = Cell.Value Then
           
           x = Target.Borders.LineStyle
           y = Target.Borders.Value
           
           Cell.Copy
    Target.PasteSpecial Paste:=xlPasteAllExceptBorders
           
           Target.Borders.LineStyle = x
           Target.Borders.Value = y
           End If
         Next Cell
     End If
End If
flag = False

If Not Intersect(Target, Range("C6:C26,H6:H30,M6:M37,R6:R39")) Is Nothing Then
    MaValeur = Target.Value
  End If
 
End Sub


J'espère que j'ai bien procédé à la rédaction de ce sujet.
Aussi que faut-il faire quand un sujet est résolu ?

Merci à vous
Hors Ligne
 Rapport   Haut 

Re: Empêcher la copie des bordures
#12
ascal44
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 29-05-2008 21h46
Bonsoir et encore merci le problème de bordure est résolu.
Je vais vous soumettre un autre problème dans un autre sujet.
A bientôt
Hors Ligne
 Rapport   Haut 

Re: mdf Doublons
#13
ascal44
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-05-2008 22h04
Merci à vous pour vos conseils.
Mon problème est résolu
Hors Ligne
 Rapport   Haut 

Empêcher la copie des bordures
#14
ascal44
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 28-05-2008 22h02
Bonsoir à tous,

Que faut -il changer dans ce code pour tout copier sauf les bordures ?


If flag Then Exit Sub
flag = True

If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
For Each Cell In Sheets("Poid").Range("C7:C300")
If Target.Value = Cell.Value Then

x = Target.Borders.LineStyle
y = Target.Borders.Value

Cell.Copy Destination:=Target

Target.Borders.LineStyle = x
Target.Borders.Value = y End If
Next Cell
End If
End If
flag = False

Merci pour vos solutions
Hors Ligne
 Rapport   Haut 

Re: mdf Doublons
#15
ascal44
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 27-05-2008 21h27
Merci je suis un peu dans les vaps quand je travaille du matin : elle était bien là la macro.
Serait il possible d'avoir le mote de passe VBA de cette macro ?
Hors Ligne
 Rapport   Haut 

mdf Doublons
#16
ascal44
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 27-05-2008 19h24
Bonsoir encor un nouveau problème pour moi :
J'ai téléchargé mdf Doublons ; quand je l'active dans les macros complémentaires je ne voie pas comment l'utiliser ? (Excel 2003)
Comment l'appliquer aux cellules d'une feuille ?
Hors Ligne
 Rapport   Haut 

Re: Comment télécharger mdf MFC ?
#17
ascal44
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 27-05-2008 19h20
Merci à vous,
Aujourd'hui j'ai réussi à le charger !!! Je ne sais pas d'où venais le problème.
Hors Ligne
 Rapport   Haut 

Comment télécharger mdf MFC ?
#18
ascal44
Débutant XLPages

Inscription: 26/05/2008
De Nantes

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 26-05-2008 21h41
Bonsoir à tous,
nouvel utilisateur; j'ai essayé de télécharger mdf MFC sans succès.
Celà ne ma demande pas l'endroit du téléchargement et n'évolu pas.
Comment faut il faire ?
Hors Ligne
 Rapport   Haut 

« 1 2