Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel rep à Xoco

rep à Xoco

1 réponse
Avatar
Cvar
Sub trouve()
ligne = 0: colonne = ActiveCell.Columns
For i = 5 To Sheets("Fichier fournisseurs").Range("A16000").End(xlUp).Row
If ActiveCell = Sheets("Fichier fournisseurs").Cells(i, 1) Then
ActiveCell.Offset(ligne, 1) = Sheets("Fichier fournisseurs").Cells(i, 2)
ActiveCell.Offset(ligne, 2) = Sheets("Fichier fournisseurs").Cells(i, 4)
ligne = ligne + 1
End If
Next

End Sub
1)
je n'ai fait qu'un "copie coller",
2)
je n'ai pas de réponse au problème
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
padbra
BONJOUR
"Cvar" a écrit dans le message de news:

Sub trouve()
ligne = 0: colonne = ActiveCell.Columns
For i = 5 To Sheets("Fichier fournisseurs").Range("A16000").End(xlUp).Row
If ActiveCell = Sheets("Fichier fournisseurs").Cells(i, 1) Then
ActiveCell.Offset(ligne, 1) = Sheets("Fichier fournisseurs").Cells(i, 2)
ActiveCell.Offset(ligne, 2) = Sheets("Fichier fournisseurs").Cells(i, 4)
ligne = ligne + 1
End If
Next

End Sub
1)
je n'ai fait qu'un "copie coller",
2)
je n'ai pas de réponse au problème




AU REVOIR