macro

[bpierre]

bonjour,

pouvez-vous m'expliquer pourquoi cette Macro ne fonctionne pas ?
Lorsque je tape une ou plusieurs croix dans les colonnes CIR CLIM LUM ou BRU, je souhaite réécrire automatiquement la ou les ligne(s) sur une autre feuille.
merci de votre aide

 

[Gruick]

Re : macro

Bonjour abPierre

Dis nous ce qu'il faut faire, et où doit-on placer la "cellule active" ou "sélection" (Target en VBA), le problème vient sans doute de là.

A plus,
Gruick

Edit :
Evites de multiplier les posts sur le même sujet, un petit up suffit

 

[bpierre]

Re : macro

par-exemple, si je coche les cellules J2 et K2 de la feuille active "Identi", je souhaite que sur la feuille "Cota" soient recopiées les valeurs CA TA Sites AC et dans la cellule A2 et A3 les entêtes des colonnes J et K de la feuille active " Identi".

A chaque fois que je tape une croix, je veux recopier les données sur l'autre feuille.

Je souhaiterais aussi effacer les données lorsque je retire la croix.

j' espère que c'est clair et merci pour votre aide

 

[bpierre]

Re : macro

Help ! Help !

désolé d'insister mais je dois rendre ce travail début de semaine.
Est-ce que qqu'un a une petite idée?
merci infiniment

 

[Le Pierre]

Re : macro

Bonjour

Pour la mise à jour avec les "x" il faut modifier ton code ainsi (ajout de UCASE) :

'zone à tester
If Not Intersect(Target, Range("j2:M1000")) Is Nothing Then
    flag = True
    With Sheets(ActiveSheet.Name)
    
     If[COLOR="Magenta"] UCase([/COLOR]Target.Value[COLOR="magenta"])[/COLOR] = "X" Then
        dl1 = Sheets(nomfeuille1).Range(colonne1a & "65536").End(xlUp).Row + 1
        
        'valeur à recopier

ainsi un "x" ou "X" dans la cellule produira le même effet.
Pour l'effacement je regarde

à plus

 

[Gruick]

Re : macro

Bonjour,

Si quand tu valides ton "X", la cellule active est la suivante, tu vas dans les préférences-->modification-->tu décoches Déplacer la sélection après validation.

Et puis,
Une petite erreur dans la macro, du fait que les CA, TA, Sites et AC, n'ont pas la même colonne dans les 2 feuilles, tu modifies la macro ainsi :

' ecrire la valeur de l'entête
Sheets(nomfeuille1).Range(colonne1a & dl1) = .Cells(1, Target.Column)
'CA colonne B
Sheets(nomfeuille1).Range(colonne1a & dl1).Offset(0, 1) = .Range("B" & Target.Row) ' & Chr(10) & .Range("c" & Target.Row)
'TA colonne C
Sheets(nomfeuille1).Range(colonne1a & dl1).Offset(0, 2) = .Range("D" & Target.Row)
'colonnes D et E
Sheets(nomfeuille1).Range(colonne1a & dl1).Offset(0, 3) = .Range("E" & Target.Row)
Sheets(nomfeuille1).Range(colonne1a & dl1).Offset(0, 4) = .Range("H" & Target.Row)

sous réserves que j'aie bien compris ton problème

A plus,
Gruick

 

[Le Pierre]

Re : macro

bonjour

comme convenu voici le programme rectifié pour tenir compte des suppressions des "x" avec effacement dans la feuille "Cota"

Il reste à gérer l'ajout de lignes dans la feuille "Identi". En attendant, en cas d'ajout de lignes, il faut enregistrer, fermer et ouvrir le classeur.

à plus

 

[bpierre]

Re : macro

merci beaucoup pour votre aide!

Toutefois je n'arrive pas à effacer, par-exemple la ligne 10 dans "Cota" lorsque je supprime le X de la cellule J4 de la feuille "Identi".
Comment faire ?

merci encore

 

[Le Pierre]

Re : macro

bonjour

Pourtant ça fonctionne bien.

Les données ("X") de la colonne J dans la feuille "Identi" commencent par "CIR" dans la feuille "Cota".
Compte combien tu en as et va ensuite effacer une croix en colonne J de la feuille "Identi"
As-tu toujours le problème ?

 

[bpierre]

Re : macro

apparamment quand je supprime une croix dans "Identi", j'ai une erreur de compilation sur "DerL".

 

[Le Pierre]

Re : macro

Peux-tu fournir ton fichier produisant ce bug ?
à plus

 

[bpierre]

Re : macro

le voilà !
merci d'avance

 

[Le Pierre]

Re : macro

bonjour

Toutes mes excuses, je n'avais pas déclaré la variable DerL.
Ce qui est curieux c'est que ça fonctionnait chez moi malgré Option Explicit (?)

Voici la version rectifiée.
à plus

 

[bpierre]

Re : macro

bonjour,

effectivement, ça marche parfois mais pas tout le temps. Quand je supprime la croix dans K2, rien ne se passe.

encore merci

 

[Le Pierre]

Re : macro

bonjour

c'est curieux car ça fonctionne bien chez moi.
J'ai ajouté un MsgBox pour suivre les lignes effacées. Ca peut t'aider à identifier le problème
à plus