copier le contenu d'une cellule sous condition

tototiti2008

XLDnaute Barbatruc

• 13 Juin 2008

• #2

Re : copier le contenu d'une cellule sous condition

Bonjour Patrmich,

Comment détermines-tu "n" ?

Avec quelque chose du genre :

if Range("G6").value>6 and Range("J6")>4 then
Range("A7:B7").value = Range("A6:B6").value
end if

 

Vote positif 0 Vote négatif

P

patrmich

Guest

• 13 Juin 2008

• #3

Re : copier le contenu d'une cellule sous condition

1- j'ai mis "n" pour désigner chaque n° de ligne

2- je corrige aussi également légèrement mon souhait :


- copier le contenu de la cellule An-2 vers la cellule An (et Bn-2 vers Bn) si la double condition suivante est remplie : Gn supérieur ou égal à 6 et Jn supérieur ou égal à 4.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 13 Juin 2008

• #4

Re : copier le contenu d'une cellule sous condition

J'ai bien compris que :

1- j'ai mis "n" pour désigner chaque n° de ligne

Cliquez pour agrandir...

Mais ça ne me dit pas comment tu récupères la valeur de n dans ton code....


if Range("G8").value>6 and Range("J8")>4 then
Range("A8:B8").value = Range("A6:B6").value
end if

 

Vote positif 0 Vote négatif

P

patrmich

Guest

• 13 Juin 2008

• #5

Re : copier le contenu d'une cellule sous condition

Je suis désolé si ma demande est mal exprimée.

Pour l'instant, je n'ai pas créee de macro. Je n'ai donc écrit aucun code et ne sais donc pas comment il faut faire pour récupérer la valeur de n

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 13 Juin 2008

• #6

Re : copier le contenu d'une cellule sous condition

Bonjour,

A tester (avec une macro évènementielle : click sur An).

 

Pièces jointes

• ClickCopie.zip

  7 KB · Affichages: 71

Vote positif 0 Vote négatif

P

patrmich

Guest

• 13 Juin 2008

• #7

Re : copier le contenu d'une cellule sous condition

Merci pour l'envoi du fichier excel zippé !

Lorsque j'ouvre ce fichier Excel (en choisissant d'activer les macros), et que je fais Outils macros, je ne vois aucune macro dans la liste.

J'utilise Excel 2000.

Qu'est ce qu'une macro évènementielle ?

Merci !

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 13 Juin 2008

• #8

Re : copier le contenu d'une cellule sous condition

Re,
Ce type de procédure ne figure pas dans la liste "Outils Macro Macros"
Alt F11 ou Visual Basic Editor pour ouvrir l'éditeur et voir (Feuil1) le

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Ligne As Integer
  If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
    Ligne = Target.Row
    If Cells(Ligne, 7) >= 6 And Cells(Ligne, 10) >= 4 Then
      Range("A" & Ligne & ":B" & Ligne).Value = Range("A" & Ligne - 2 & ":B" & Ligne - 2).Value
    End If
End Sub

C'est une macro qui s'exécute quand on sélectionne sur une cellule de la feuille concernée (en cliquant, par exemple avec la souris).
Ici, Ligne est une variable qui prend le numéro de la ligne de la cellule (Target) sur laquelle on clique.
Target.Count > 1 permet de sélectionner plusieurs cellules sans avoir un message d'erreur.
Target.Column > 1 permet de se limiter à la colonne A.

 

Vote positif 0 Vote négatif