liste deroulant et fichier fermé

[hurricane]

Bonjour à tout le monde

Ptit question

J’ai deux fichiers alpha et bêta, bêta est fermé et est une base de données

Est il possible dans le fichier alpha en C4 C5 etc. d’avoir un menu déroulant avec les données de la colonne D du fichier bêta ?

Le but est après sélection d’une donnée X ou Y la copie des valeurs placées Cx Bx du fichier bêta dans les cellules Bx et Ax du fichier alpha

Merci d’avance

 

[El Ceda]

le zip déposé est vide pour moi mais à défaut j'ai reussi mon zip avec la formule dedans.

 

[El Ceda]

et ben non je suis comme toi :il est vide aussi ??????????

 

[hurricane]

j'ai refais le zip et je vais faire un essai aussitot apres

par contre dans ton copyofessai il n'y a rien le vide

 

[hurricane]

ouai on est pas dans caca si les piéces jointes ne fonctionnent plus

 

[El Ceda]

voici mon email pour que je puisse t'envoyer mon fichier :
elcedasp@yahoo.fr
ecris-moi

 

[hurricane]

c'est dans ta Bal

 

[hurricane]

bonjour

bon je refais un essai si quelqu'un a une solution pour ma macro


merci

 

[hurricane]

fichier passe pas ha ha ha

je refais un essai ici et si passe pas je fais un essai au boulot

 

[hurricane]

Salut

je re-refais un essai

 

[hurricane]

comme la piece jointe ne fonctionne pas voila la copie de la macro mon soucis et l'addition des valeurs des doublons j'ai un peut de mal avec les offset.

Sub somme_doublons()

Dim plage As Range
Dim nblignes As Long

'copie des données dans feuil3
Sheets("Horaire").Select
Range("F6:G21").Select
Selection.Copy
Sheets("Feuil3").Range("A2").PasteSpecial Paste:=xlValues


'tri du tableau
Sheets("feuil3").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

'calcul du nb de ligne
Set plage = Range("A2", [A2].End(xlDown))
nbligne = plage.Count

'curseur sur la derniere ligne
ActiveCell.Offset(nbligne - 1, 0).Range("A1").Select

'le bug est ici
For i = 1 To nbligne
If ActiveCell.Value = ActiveCell.Offset(-1, 0) Then
ActiveCell.Value = ActiveCellValue + ActiveCell.Offset(-1, 0).Value
ActiveCell.Offset(-1, 0).Select
ActiveCell.EntireRow.Cells().Select
Selection.Delete Shift:=xlUp
Else
ActiveCell.Offset(-1, 0).Range("A1").Select
End If
Next i
end sub

donc si quelqu'un a la solution merci

 

[hurricane]

Re: liste deroulant et fichier fermé Help!!!

bonsoir

j'arrive enfin a faire l'addition mais il me reste un doublons et là incomprehensible

est ce que quelqu'un est interressé par le probleme je lui envoi le fichier ds sa BAL comme les pieces jointes ne fonctionnent plus.

merci

 

[Ti]

pas de problème Hurricane, mais pas le gros de 2.6 Mo ! (je n'ai pas l'ADSL)

 

[hurricane]

dans ta BAL

 

[Ti]

hurricane, je suis au boulot, donc je mets ton fichier corrigé ici, en espérant qu'il passera !, sinon envoie-moi un nouveau mail avec ton adresse si tu veux l'avoir avant ce soir.
J'y vais, je suis déjà à la bourre !

 

[hurricane]

Re: liste deroulant et fichier fermé remerciement

Ti je mesure a la vue du fichier le travail qui me reste a faire pour arriver a la hauteur de ton orteil

enfin merci encore et je pense que j'aurai encore bien besoin des lumieres du forum

salut