Fonction SI

Bonjour à tous,

Petite question simple pour la plupart d'entre vous mais vu mon niveau je galère.

Je souhaite recopier le contenu de certaines cellules sur la même ligne si la valeur d'1 cellule = celle du dessus

Ci-joint un exemple, je souhaiterai svp une fonction qui me permette de :

Si A3=A2 alors je recopie en sur la ligne 3 le contenu des colonnes B à E.....

Si c'est différent alors il ne se passe rien et ça n’écrase pas mes données B à E

Merci d'avance pour vos lumières

Bonjour,

Un fichier a tester

Merci,

J'ai vu la présence d'une formule visual basic et que la ligne 3 est remplie mais comment je la lance pour le reste de mon classeur?

Désolé!

bonjour

salut besoin d'aide

pourquoi avoir besoin de dupliquer des données ?

si c'est pour "compléter" un tableau, il vaut mieux créer un tableau des noms/adresses et ensuite les récupérer dans le tableaux des valeurs avec RECHERCHEV()

on fait tous ça

pas de VBA

et dans quelques mois tu passeras à Power BI

Bonjour,

Voila le code avec une boucle. Il remplace l'autre

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Dim nom As String
Dim place As Range
Dim x As Long, compteur As Long
Dim debut As Range
nom = Target.Value
Set debut = Range("A1")
Do
Set place = Range("A:A").Cells.Find(nom, debut)
If place Is Nothing Then
Exit Sub
Else
Range("B" & Target.Row & ":E" & Target.Row).Copy
place.Offset(0, 1).PasteSpecial
x = WorksheetFunction.CountIf(Range("A:A"), nom)
compteur = compteur + 1
Set debut = Cells(place.Row + 1, 1)
End If
Loop While Not compteur = x
End If
compteur = o
End Sub

cordialement

Re,

Bonjour Jmd

Voilà le fichier

Pour lancer la macro, tu n'as rien a faire. Elle se lance automatiquement quand tu modifie une cellule de la colonne A

Sinon, Jmd a raison, un tableau pourrai être plus approprié. A toi de voir

Cordialement

Merci pour vos efforts, mais je ne pense pas que ce format puisse me servir pour mon traitement

En fait c'est pour un export de base de données. Ci-joint un extrait des quelques lignes. La problématique est la même à savoir recopier les infos des colonnes C à J pour les cellules de la colonne B identiques.

Par contre c'est un extrait j'ai 10000 lignes de contact donc il faudra que ça marche pour quand je copierai la globalité de mon fichier

Il faudra après traitement bien sur que je fasse un dédoublonnage.

Désolé j'aurai dû commencer par là.

Merci d'avance

re à vous

d'une manière générale :

• ne pas copier/coller de données (source de problèmes et perte de temps)
• ne pas effacer de données
• extraire des données grâce à des TCD, des tris, des filtres, ou Power Query (et RECHERCHEV si on veut bricoler)

ceci est d'autant plus vrai si on dépasse les 10 000 ou 100 000 lignes ou même 1 000 000 lignes (en csv par exemple). Power Query est alors le maître.

Bonjour,

Un fichier à tester (notamment pour le temps que met la macro pour faire le travail demandé)

Nb : a la fin, un message demande si vous voulez supprimer une feuille. C'est normal car je passe par une feuille intermédiaire que j'efface par la suite. Il est aussi possible de prévoir une feuille permanente pour cela si vous le souhaitez

Cordialement

Au top!!!!! c'est long en traitement mais le résultat est parfait.

Merci encore