Discussion :

[jtsfab]

Bonjour,

J'ai deux cellules "titulaires" P1 et P2

et j'ai deux cellules de "remplacant" R1 et R2

Le but etant que si j'ai :

Si j'ai P1 ou P2 de renseigné , on ne fait rien

Et si il manque P1 ou P2 , on recopie suivant R1 ou R2 si eux sont remplis
Si il manque les deux et que R1 ou R2 ne sont pas renseigné , on ne fait rien

Le but etant d'avoir P1 et P2 de rempli

Pouvez vous m'aider , j'ai 20000 lignes , j'ai commencé à la main mais trop long !!!

merci d'avance

[BENNASR]

bonjour
et à propos de ça ????:

https://www.developpez.net/forums/d2...bler-familles/

si non : à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub remplir()
Application.ScreenUpdating = False
Dim F1 As Worksheet
Dim derlig As Long
Set F1 = Sheets("Feuil1")
    derlig = F1.Cells(Rows.Count, 1).End(xlUp).Row
    Dim i As Long
    For i = 1 To derlig
    If F1.Cells(i, 1) = "" And F1.Cells(i, 3) <> "" Then F1.Cells(i, 1) = F1.Cells(i, 3)
    If F1.Cells(i, 2) = "" And F1.Cells(i, 4) <> "" Then F1.Cells(i, 2) = F1.Cells(i, 4)
    Next i
  Application.ScreenUpdating = True
  End Sub

[jtsfab]

Merci BENNSAR,

Je vais tester

Pour l'autre demande , je vais tester ta nouvelle proposition . Mais comme je l'ai indiqué je dois mettre a jour mes données qui ne semblait pas trop fiable , comme la remarquer ARturo .
D'où cette nouvelle demande pour finaliser la 1ere .

Je me suis lancé dans un truc , que je pensais faire avec une macro et je fini avec trois !!!
Je galere quoi .

Merci a tous pour votre aide

[jtsfab]

Encore moi,

Possible de modifier le code , pour le resultat de P1 et P2 apparaissent dans une autre feuille ?

Et que si P1 ou P2 est vide la ligne n'est pas mise dans l'onglet resultat

CDt