Macro avec IF

[gilou31]

Bonjour a tous 😛

J'ai une petite macro a faire qui me fait un copier collé.
J'ai 2 sortes de cases à copier :

Le nom du candidats, et le numéro de la feuille sur laquelle ils sont inscrits.
Je voudrais que ma macro me copie le nom des candidats, et me copie le numéro de la feuille a coter de chaque candidats, quand le candidat existe.

En gros :

COPIE A2 en A6
SI " la case A6 est rempli"
ALORS
copie le numéro G1 en F6.

mon gros probleme est donc de matérialisé ce que je pense, a savoir :
"si la case 16 est rempli"


je vous joints un petit fichier pour me faire comprendre 😛

 

[gilou31]

Re : Macro avec IF

j'ai peut etre trouver quelque chose qui ressemble ?

If Not Target.Address = '$A$1' Then Exit Sub
If Target.Value ='' Then
Range('B1').Value = ''
Else
Range('B1').Value = Format(Date, 'dd/mm/yyyy')
End If
End Sub

 

[wamme]

Re : Macro avec IF

Salut, voici un essai tout simple avec une formule en colonne F.
Regarde la pièce jointe 01(1).xls

 

[pierrejean]

Re : Macro avec IF

bonjour gilou31

Vois si cela te convient
Note les mentions en E1 et G1 sont inutiles

 

[gilou31]

Re : Macro avec IF

Salut, voici un essai tout simple avec une formule en colonne F.
Regarde la pièce jointe 86511

Salut 🙂 il me le faut le faire en macro, car cela va s'activé avec un bouton, et surtout ne sera pas sur des lignes fixes.
Je m'explique :
je vais copier des données d'un formulaire dans un tableau.
Je copie la premiere fois, les données se mettent dans la premeire ligne du tableau,
je refais un formulaire, je copie à nouvea, les données se mettront dans la seconde ligne...

bref je dois avoir une macro

 

[gilou31]

Re : Macro avec IF

bonjour gilou31

Vois si cela te convient
Note les mentions en E1 et G1 sont inutiles

G1 va servir, car le numéro de la feuille va s'incrémenter.

 

[gilou31]

Re : Macro avec IF

je pense qu'un' fonction if serait la meilleure solution.
je serais comment l'insérer dans ma propre macro.
Savez vous comment on matérialise : si "telle cellule n'est pas vide" ?

 

[pierrejean]

Re : Macro avec IF

Re

A ton aise !!

Mais vois en feuille 2

Pour ta question
2 exemples

If range("A" & n).value <> "" then
If range("G1").value<>"" then

 

[gilou31]

Re : Macro avec IF

Re

A ton aise !!

Mais vois en feuille 2

Pour ta question
2 exemples

If range("A" & n).value <> "" then
If range("G1").value<>"" then

je pense avoir suréstimé ma compréhension d'excel lol.
merci pour ta formule.
mais je n'arrive pas a intégré.
Ma formule de copie est celle ci :

Sheets("livre de mission").Select 'Candidat proposé 1
Range("b42").Select
Selection.Copy
Sheets("data").Select
colonne = Range("A65536").End(xlUp).Row + 1
Cells(derlig, 46).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Si cette case n'est pas vide ( et elle peut l'être), alors excel doit mettre le numéro dans cette case + 1

Sheets("livre de mission").Select 'Numéro du livre de mission
Range("nlm").Select 'nlm est la case où se trouve le numéro
Selection.Copy
Sheets("data").Select
colonne = Range("A65536").End(xlUp).Row
Cells(derlig, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Je pense que c'est donc en fin de macro que je dois effectué ce fameux IF, qui me permettra de remplir m case